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TYKKE  TILBUD. 


”TA$T”  er  Danmarks  største  taste-ind  blad. 
Et  sandt  bibliotek  af  spændende  kvalitetsprogrammer, 

der  nu  udkommer  fast  hver  tredie  måned. 

Tegn  abonnement  NU!  Ikke  bare  er 
det  den  billigste  løsning,  men  du  får  også 
bladet  bragt  til  døren  -  gerne  34  dage  før 

det  udkommer. 

Et  helt  år  koster  bare  122  kroner.  Eller  omkring 

en  krone  pr.  program  ... 


i - - - 

I 

I 

I  Ja  tak,  lad  mig  tegne  abonnement 

j  på  ”TAST”  i  et  år  (4  numre). 

J  Jeg  har:  Indsat  kr,  122,-  på  giro  9  40  60  77  □ 
■  Vedlagt  en  check  på  kr+ 122,-  □ 

i  Navn _ _ _ . _ _ _ _ _ 

I  Adresse _ _____ 


Computer:  _ _ 

Sendes  til:  TAST  Abonnement 

Sl  Kongensgade  72 
1264  København  K. 


SEND  KUPONEN  IDAG! 


■1 


Kære  læser. 

Hvad  er  et  godt  program  værd?  Eller  Kan  der  overhovedet 
sættes  pris  på  det? 

Vi  har  allerede  gjort  det.  Nemlig  ved  at  sætte  gevinstsum¬ 
men  for  "læsernes  bedste  program"  til  1.000,-  kolde,  dan¬ 
ske  kroner.  Måske  kan  der  slet  ikke  sættes  pris  på  et  godt 
program,  som  titusindvis  af  TAST-læsere  som  dig  selv  har 
nytte  af  dag  efter  dag.  uge  efter  uge.  Men  faktum  er,  at 
månedens  stjerne-listning  får  1 .000,-  kr.  kontant.  Og  end¬ 
da  skattefrit,  for  at  det  ikke  skal  være  løgn! 

Men " we  ain't  stoppin’  yet”.  Den  nye  præmiesum  er  nemlig 
ikke  den  eneste  nyskabelse  i  dit  dugfriske  TAST.  Se  bare  på 
La  Petite  Prog  ramme  (LaPP),  vores  nye  hot  spot  med  mas¬ 
ser  af  mini-programmer  og  små  friske  rutiner.  Eller  de 
spændende  programmør-profiler,  hvor  du  selv  kan  lure 
profferne  deres  detaljer  af. 

Jo,  TAST  er  en  succes  med  nyskabelser.  Dit  og  Danmarks 
største  taste-ind  magasin... 

Rasmus  Kirkegård  Kristiansen, 

Chefredaktør. 
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TAST- 

Danmarks  største  taste-lud  blad 

Samtlige  aftrykte  listninger  er  afprøvede 
før  offentliggørelse.  Forlaget  betaler  skat¬ 
tefrit  op  til  1000  kroner  for  godkendte  læ¬ 
seprogrammer.  Forlaget  har  ret  til  at  af¬ 
trykke  godkendte  programmer  i  bladet 
og  må  offentliggøre  dem  på  andre  lager- 
media.  TAST  accepterer  listninger  til  alle 
markedets  datamater,  blot  skal  de  være 
skrevet  i  det  til  maskinen  mest  benyttede 
sprog.  Afsender  garanterer  programmets 
originalitet. 


Når  bladet  ikke  frem,  henvend  dig  da 
først  på  dit  lokale  postkontor. 


TAST  udgives  af  forlaget  Audio  A/S,  der 
også  udgiver  "SOFT1,  "Alt  om  Data'1, 
"COM  puter"  "high  fidelity",  "ny  elektro- 
nik"  "Svenska  COMputer'1,  "Svenska 
SOFT"  og  Hi-Fhårbogen. 


Det  er  rigtigt,  at  programmet  er  i 
maskinkode,  og  jeg  har  efterhån¬ 
den  også  check  på  651 0,  Jeg  pro¬ 
grammerede  naturligvis  i  BASIC, 
men  det  er  for  langsomt,  og  så  er 
der  så  meget  man  ikke  kan  gøre  - 
derfor  lærte  jeg  maskinkode.  Jeg 
lånte  en  bog  på  biblioteket,  en  me¬ 
get  let  bog,  der  forklarede  om  ma¬ 
skinkode,  så  jeg  selv  kunne  afprø¬ 
ve  det  Henad  vejen  lærtejeg  hvad 
man  skulle  gøre.  forat  lave  såkaldt 
umulige  ting.  Men  dajeg  ikke  hav- 


De  får  deres  programmer  i  bladene  og  tjener 
penge  på  dem. 

På  overfladen  ganske  almindelig  danskere  - 
bare  med  et  indbringende  bi-job... 
ffer  fortæller  de  for  første  gang  åbent  om 
deres  små  tricks  og  hvorfor ;  netop  de  er  blevet 
bedre.  Råd [  der  er  guld  værd.  Direkte  fro  stjer¬ 
ne- program  mørerne,  de  magiske  få.,  i 


for  pengenes  skyld,  men  for  at  få 
nye  udfordringer  hele  tiden.  For 
eksempel  harjeg  lige  sendt  endnu 
et  program,  ti  i  jer.  Det  er  lavet  i  ma¬ 
skinkode  og  forstørrer  bogstaver¬ 
ne  64  gange.  Selvfølgelig  sender 
jeg  programmerne  ind  når  de  er 
færdige,  for  det  er  natur!  ig  vis  også 
rart  at  tjene  penge  samtidig  med, 
at  man  hygger  sig.  Jeg  har  lige  af¬ 
sluttet  gymnasiet,  så  til  efteråret 
skal  jeg  ind  på  universitetet  og  læ¬ 
se  datalogi. 


havde  check  på  maskinkoden  Jeg 
havde  nemlig  set  i  bøger  og  læst 
nogle  blade,  mest  de  engelske  bla¬ 
de. 

Computeren  er  nu  ikke  kun  min. 
men  også  min  fars,  såjeg  kunne  ik¬ 
ke  beslaglægge  den  helt.  Men  når 
jeg  får  en  ide.  så  tænker  jeg  over 
den  i  ca.  en  uge  og  så  programme¬ 
rer  jeg.  når  jeg  får  tid.  Normalt  la¬ 
verjeg  BASIC  om  til  maskinkode. 
Jeg  har  lært  det.  jeg  kan.  ved  at 
læse  blade  og  prøve  mig  frem, 
godt  nok  harjeg  haft  datalære  i 
skolen,  men  vi  lærte  ikke  noget 
særligt  -  så  det  gider  jeg  i  hvert  fald 
ikke  mere. 

Jeg  har  ikke  så  meget  tid  til  at  pro¬ 
grammere,  for  jeg  går  på  EFG,  og 
skal  senere  på  HH, 


Navn:  Jørgen  Andersen 
Alder;  16  år 

By:  Virum  / 

Program;  Hires  64 
Tils  C -64 

Bragt;  COMputer  Z/86 
Gevinst;  500,-  kr. 


Navn:  Anders  Munch 
Alder  19  år 
By;  Dronninglund 
Program;  Headline 
Til:  C-64 

Bragt:  COMputer  3/87 
Gevinst;  500.-  kr. 

Programmet  Headline  er  egentlig 
skabt  på  en  ide  fra  Comal-80,  hvor 
der  findes  en  såkaldt  statuslinie, 
der  fortæller  alt.  man  bør  vide. 
Dvs.  hvor  m eget  hukommelse,  der 
er  brugt  (og  tilbage),  om  man  er  i 
et  program,  quote-mode  o.l.  Så 
tænkte  jeg,  at  det  måtte  man  da 
også  kunne  gøre  på  en  64'  er,  og  så 
lavede  jeg  programmet. 


de  en  maskinkode-monitor  så  var 
det  meget  besværligt  at  lære  ma¬ 
skinkode.  Derfor  lavede  jeg  først 
en  monitor,  selvfølgelig  i  BASIC. 
Da  jeg  så  havde  check  på  maskin¬ 
koden,  lavede  jeg  en  hurtigere  i 
maskinkode.  Det  var  meget  sjovt 
og  ikke  så  svært,  som  jeg  troede! 
Nu  beskæftigerjeg  mig  mest  med 
at  forbedre  BASIC,  dvs.  jeg  laver 
æ-ø-å,  ny  BASIC,  flytter  hukom¬ 
melse  og  andet,  der  tidsmæssigt 
er  umuligt  i  normal  BASIC. 

Når  jeg  får  en  ide  til  et  program, 
skal  det  programmeres  så  hurtigt 
som  muligt,  og  når  jeg  sidder  og 
programmerer,  får  jeg  ideerne 
samtidig.  Jeg  programmerer  ikke 


Hires  64  er  et  maskinkodepro¬ 
gram,  der  gør  det  meget  lettere  at 
tegne  grafik  på  64'eren,  Det  giver 
nemlig  mulighed  for  at  slette  høj- 
op  l  ø  sn  i  n  g  sskærm  en  m  ed  m  as  k  in  - 
kode  (det  er  ca.  3000  gange  hurti¬ 
gere  end  BASIC),  tegne  linier  og 
sætte  punkter.  Kort  sagt  alt,  man 
,  har  lyst  til  af  grafik,  kan  laves  me¬ 
get  lettere  med  Hires  64.  Jeg  fik 
egentlig  ideen,  fordi  jeg  syntes, 
det  var  for  besværligt  at  lave  gra¬ 
fik  på  64’eren  og  da  jeg  begyndte 
at  interessere  mig  for  maskinko¬ 
de,  lavede  jeg  programmet  udfra 
et,  jeg  så  i  Reference-guiden.  Det 
tog  cirka  to  dage  at  lave,  for  jeg 


Navn;  Carl  Erik  W,  Sørensen 

Alder:  1 6  år 

By:  Tommerup  St, 

Program:  Lærenem 
Til:  C-64 

Bragt:  COMputer  1/87 
Gevinst:  SOO,-  kr. 

Jeg  læste  om  ekspertsystemer, 
og  lavede  et  ad  ven  ture  program 
udfra  ekspert  sys  ternet  (dvs,  kun¬ 
stig  intelligens).  Først  læstejeg  en 
masse  teori,  og  så  vidste  jeg  altså 
nok  til  at  lave  f.eks  "lærenem” 
(Lærenem  er  et  program,  der  kan 
lære  af  dine  indtastninger,  red,). 
Jeg  sætter  mig  ned  og  taster,  når 
jeg  er  i  humør  til  det.  men  jeg  har 
ikke  meget  tid  i  øjeblikket  forjeg 
går  i  første  G  på  matematisk  linie. 
Det  er  dog  sådan,  at  nårjeg  får  en 
ide,  så  tænker  jeg  meget  over 
hvordan,  den  kan  løses,  og  så  sæt¬ 
ter  jeg  mig  hen  og  taster,  og  jeg 
glemmer  helt  tiden.  5å  sommeti¬ 
der  kan  det  godt  blive  sent  ( Fak¬ 
tisk  så  programmerer  jeg  aller¬ 
bedst  om  natten!) Jeg  er  ikke  så 
god  til  maskinkode,  for  jeg  har 
nemlig  kun  læst  en  lille  smule  i  en 
bog  om  assembler,  og  så  har  jeg 
naturligvis  prøvet  at  lege  med  in¬ 
struktionerne,  så  rnine  program¬ 
mer  er  i  BASIC  eller  COMAL-80, 
Jeg  er  iøvrigt  i  gang  med  et  spil, 
detenen  blanding  af  rum -adventu¬ 
re -arcade  og  plottet  er  næsten 
som  Starwars.  Der  er  en  blanding 
af  tekst  og  grafik  i  spillet.  Jeg  sy¬ 
nes,  det  er  meget  svært  at  lave 
grafik,  så  derfor  laverjeg  det  først 
på  papir  og  derefter  skriver  jeg 
grafikken  ind  på  Koala-painter, 


I  learned  it 

Ihe  hard  way!" 


Hvis  jeg  får 
en  ged  ide,  skal 
den  laves  så 
hurtig #  som 


Navn;  Lars  Thorsen 
Alder:  13  år 
By;  Roskilde 

Program:  Malermesteren 
Tiis  C-16 

Bragt:  COMputer  7/86 
Gevinst:  500,-  kr. 


Navn:  Claus  Andersen 
Alder:  19  år 
By:  Vedbæk 
Program:  Splitscreen 
Til:  C-64 

Bragt:  COMputer  5/87 
Gevinst:  500,-  kr. 

Jeg  lavede  egentlig  "Splitscreen" 
som  et  underprogram  i  et  spil  jeg 
lavede,  hvor  jeg  skulle  bruge  for¬ 
skellig  scroll -ha  stig  hed  og  højop¬ 
løselig  grafik  flere  steder  på  skær¬ 
men  samtidig.  Og  så  var  det  altså, 
at  jeg  lavede  dette  program.  Som 
jeg  senere  sendte  ind.  og  vandt  på. 
Det  er  lavet  i  maskinkode,  pga. 
hastigheden  og  fordi  jeg  roder 
med  rasteren.  Det  er  kun  muligt  i 
maskinkode. 

Jeg  har  ingen  assembler,  så  det  er 
ret  ti  dskrævende  at  prog  rammere 
i  maskinkode.  Derfor  bruger  jeg 
også  BASIC,  nårjeg  skal  lave  man¬ 
ge  beregninger,  for  det  er  mange 
gange  lettere  end  at  rode  i  maskin¬ 
koden,  Jeg  lærte  maskinkode  for¬ 
di  en  af  mine  venner  kunne  trylle 
med  koden,  og  det  ku' jeg  ikke  -  og 
det  ville  jeg  ikke  acceptere  (han 
skulle  1  hvert  fald  ikke  være  bedre 
end  mig).  Såjeg  fandt  nogle  bøger 
og  læste  og  efterhånden  fikjeg  og¬ 
så  fod  på  det. 

Jeg  programmerer  spontant  og 
lytter  til  musik  jeg  er  helt  opslugt 
og  sommetider  har  jeg  siddet  fra 
kl,  otte  morgen  til  ni  aften.  Det  er 
simpelthen  sådan,  at  fårjeg  en  ide, 
så  skal  den  programmeres,  og  når 
den  ene  del  virker,  går  jeg  videre 
med  programmet  og  ideerne. 

Det  hele  startede  egentlig  med 
min  far,  for  han  er  vild  med  nye 
ting,  så  dengang  VIC-20  kom 
frem,  købte  vi  en.  (dengang  til 
4,500.-  kr.).  senere  fik  vi  den  stør¬ 


lykkedes,  men  det  holdt  hårdt  (og 
det  blev  en  maskine  i  1 0,000  dol¬ 
lars  klassen). 

Til  august  skal  jeg  et  halvt  år  til 
Frankrig,  for  jeg  vil  gerne  overtage 
min  fars  fi rma,  og  så  er  det  vigtigt, 
at  jeg  taler  flydende  engelsk  og 
fransk  (i  hvert  fald),  for  vores  for¬ 
retningsforbindelser  er  for  blot  at 
nævne  nogle:  Spanien,  Portugal, 
Frankrig.  Kina  og  Østtyskland.  Fir¬ 
maet  handler  med  artikler  for 
blomsterhandlere,  og  vi  fabrikerer 
bånd  med  tekst  (til  begravelser)  - 
så  jeg  overvejer  at  lave  en  bånd- 
tekst maskine,  da  bogstaverne  er 
brandvarme,  når  båndene  trykkes, 
og  en  robotarm  nok  ikke  lider  så 
meget  som  et  menneske,  Bånd- 
tekstmaskinen  skal  styres  af  en 
computer.  Jeg  overvejer  hvordan 
jeg  skal  få  (lavet)  hardwaren.  Og 
jeg  har  aldrig  prøvet  at  lave  hard¬ 
ware  før,  så  det  er  en  stor  udfor¬ 
dring. 

Jeg  vi]  gerne  kombinere  min  hob¬ 
by  (som  er  datamater)  med  mit  ar¬ 
bejde,  Jeg  håber  (og  tror),  at  det 


Navn:  Morten  Brodersen 
Alder  18  år 


Jeg  lavede  programmet,  fordi  jeg 
havde  brug  for  nogle  sprites  til  et 
af  mine  andre  programmer  (hvor 
du  skal  styre  en  mand  forbi  nogle 
kugler,  der  falder  ned).  Og  jeg  syn¬ 
tes,  det  var  for  besværligt  på  den 
normale  måde.  Så  dette  program 
blev  til! 

Jeg  programmerer  kun  BASIC,  for 
maskinkode  erfor  besværligt.  Min 
far  har  hjulpet  mig  meget.  Også 
med  at  finde  ud  af  BASIC.  Fian 
hjalp  også  med  at  lave  program¬ 
met  malermesteren,  som  jeg  jo 
vandt  penge  på. 

Nårjeg  programmerer,  brugerjeg 
kun  den  danske  manual,  for  den 
engelske  er  ikke  nær  så  god  (læs: 
tyk),  og  så  er  der  heller  ikke  index  i 
den. 

Jeg  går  kun  i  syvende  klasse,  men 
er  allerede  i  gang  med  et  tekstspil 
til  min  C-16.  det  bliver  meget 
spændende.  Indtil  videre  har  jeg 
fundet  nogle  snydenavne. 

Plottet  er,  at  man  skal  redde  en 
prinsesse  fra  en  drage  og  en  ond 
troldmand.  Det  foregår  i  Narnla, 
der  er  en  slags  eventyrland  -  lige¬ 
som  i  J.R.R  Tolkiens  bøger.  Du  kan 
også  møde  de  samme  personer  og 
væsener  som  hos  ham.  F.eks  Gan- 


dalf,  som  skaffer  flere  våben.  Der 
vil  blive  omkring  50  forskellige 
steder,  og  det  vil  være  færdigt  tit 
efteråret. 

Jeg  vil  gerne  være  korrespondent 
ogjeg  vil  kun  have  computere  som 
hobby.  Jeg  gider  ikke  arbejde  med 
computere  hele  dagen! 


re  64'er,  og  nu  prøver  jeg  at  tjene 
penge  til  en  Amiga. 

Jeg  blev  student  sidste  år  og  bar 
været  et  halvt  år  i  Guds  eget  land, 
USA,  Her  lavede  jeg  bi.a  noget  re¬ 
search,  hvor  der  skulle  bruges  en 
grafikcomputer,  der  kunne  anime¬ 
re  35  genstande  i  realtime.  Det 


By:  Søborg 

Program:  Real -time  ur 
TU;  C-64 

Bragt:  SOFT  3/86 
Gevinst;  600,-  kr. 

Programmet  giver  et  ur  øverst  på 
skærmen,  og  det  mente  jeg,  man 


ofte  kunne  bruge,  da  man  jo  har 
det  med  at  glemme  tiden,  nårman 
programmerer.  Programmet  er  la¬ 
vet  i  maskinkode,  men  jeg  pro¬ 
grammerer  også  BASIC,  C,  COMAL 
og  PASCAL  Jeg  er  med  i  et  pro¬ 
grammørteam,  der  kaldes  Scan- 
Team,  vi  skal  til  at  udvikle  spil  til 
Amigahen.  Forresten  vandt  jeg  en 
Piccoline  i  jeres  søsterblad  "Alt  om 
Data” ‘s  store  skolekonkurrence, 
den  solgte  jeg.  fordi  jeg  lige  havde 
købt  en  Amiga  -  og  helt  ærligt,  så 
var  Piccolinen  vand  mod  Amigaenl 
Jeg  har  lavet  en  del  programmer 
til  Amigaen,  de  fleste  er  med  tre- 
dimensionelle  tegninger,  der  dre¬ 
jes  og  lign. 

Jeg  er  midnatsprogrammør,  dvs. 
jeg  programmerer  om  natten.  Når 
jeg  programmerer  sidder  jeg  ofte 
til  kl.  04.00  og  jeg  har  al  tid  skrevet 
programmet  ned  (i  hvert  fald  i  ho¬ 
vedpunkter)  før  jeg  sætter  mig 
ved  computeren.  Det  gør  det  hele 
meget  lettere.  Jeg  har  endvidere 
lavet  en  bibel  over  mine  egne  pro¬ 
grammer,  hvor  alle  svarene  står. 
Jeg  programmerer  ALT]  D  struktu¬ 
reret.  det  er  simpelthen  blevet 
min  stil.  Den.  jeg  er  blevet  kendt 
for. 

Aitjeg  kan.  harjeg  selv  lært.  forjeg 
har  læst  10  kito  bøger.  Dengang, 
jeg  begyndte,  var  det  med  en 
ZX81  og  dennes  Z80  processor  Vi 
varen  gruppe,  som  alle  var  interes¬ 
serede  i  computere,  så  vi  støttede 
hinanden  og  gav  gode  råd.  Godt 
nok  har  jeg  gået  på  aftenskole, 
men  jeg  lærte  intet  nyt.  så  det  gør 
jeg  nok  ikke  mere! 

Jeg  er  lige  blevet  student  mate- 
matisk-fysisk  (sæ'føli)  og  jeg  vil 
gerne  læse  til  data-ingenør.  så 
DTH  på  Lund  toftes  i  etten  bliver  et 
usikkert  sted  til  efteråret.  Jeg  sy¬ 
nes  endvidere  at  vi  haret  godt  ud¬ 
dannelsessystem,  men  der  er  for 
få,  der  tror  på,  at  danskerne  kan 
selv  -  jeg  vi  i  vise  at  det  kah  vi! 


Navn:  Søren  Frahm 
Alder:  16  år 
By:  Lystrup 

Program:  Ghostbusters 
Til*  Lambda 
Bragt:  TAST  1/87 
Gevinst:  450,-  kr. 

Jeg  var  engang  i  biffen  og  se 
"Ghostbusters”  og  straks  fik  jeg 
ideen  til  spillet  jeg  havde  tænkt  så 
længe  over.  NU  skulle  spillet  laves! 
Jeg  havde  fået  en  Lambda  [julega¬ 
ve,  og  på  tastaturet  var  der  spø¬ 
gelser  og  andre  figurer,  så  grafik¬ 
ken  var  let  at  lave.  Spi  llet  gik  ud  på, 
at  du  skulle  skyde  spøgelserne 
med  din  laser,  og  jo  tængere  tid,  du 
var  på  skærmen,  des  mindre  blev 
din  livslinie.  Når  den  forsvandt, 
døede  du.  Spillet  blev  lavet  i  BA¬ 
SIC,  for  jeg  kunne  ikke  maskinko¬ 
de.  Jeg  har  senere  læst  mange  bø¬ 
ger,  og  på  gymnasiet  fik  vi  et  40  ti¬ 
mers  kursus  i  COMAL.  Det  sprog  er 
simpelthen  for  let.  for  efter  ganske 
kort  tid  kan  du  lave  alt,  du  gerne 
vil,  og  så  er  det  kedeligt! 

Dengang  var  det  sådan,  at  jeg  væl¬ 
tede  ned  foran  hjemmealteret  når 
jeg  kom  hjem  fra  skole  -  man  sku  lle 
vel  slappe  af,  ikkf?  Og  så  skete  det 
altså,  at  programmerne  væltede 
ud  af  ærmerne,  f.eks  harjeg  lavet 
et  par  økonomiprogrammer  og  et 
program,  der  bøjede  tyske  verber. 
Det  er  sjovere  end  at  lave  spil.  Jeg 
tænkte  lidt  over,  hvad  jeg  ville,  og 
så  satte  jeg  mig  ned  og  program¬ 
merede  og  efter  ca.  5  timer  havde 
jeg  bare  det  tykke  program,  der 
bare  ku'  det  der 

Jeg  går  i  2.  g  nu.  jeg  fisker  sild  og 
jager  krager  og  det  hænder  (ret  of¬ 
te  faktisk)  at  jeg  sejler  i  min  fars 
båd.  Jeg  gider  simpelthen  ikke  le¬ 
ge  med  computere  mere,  det  er 
jeg  vokset  fra  -  nu  opfinderjeg  iste- 
det.  Og  ved  den  seneste  opfinder- 
konkurrence  fikjeg  hele  1 000  kro¬ 
ner  for  en  af  mine  opfindelser.  (En 
iimdunk,  der  ikke  kunne  størkne  i 
halsen). 

Jeg  vil  gerne  blive  konstruktør  el¬ 
ler  arkitekt  men  jeg  vil  arbejde 
med  udvikling,  ikke  biot  være  ta¬ 
stemand  i  et  firma. 


SKOMAL 
(COMAL)?  -  Det 
er  tor  le  ti" 


Jog  solgte 
min  I28'er  og 
kobte  on 
Amiga . " 


Navn:  Kent  Pedersen 


Alden  15  år 


By:  Randers 
Program:  Skakmat 
Til:  C- 128 


Bragt:  SOFT  3/86 
Gevinst:  400,-  kr. 


Jeg  er  meget  interesseret  i  skak, 
og  derfor  lavede  jeg  dette  pro¬ 
gram,  der  kunne  simulere  en  slut¬ 
spilssituation,  hvor  man  spiller 
med  løber  og  springer  mod  enlig 
konge.  Ifølge  alle  teoribøgerne  er 
det  muligt  at  sætte  mat  -  men  det 
kræver  nogen  øvelse.  Denne  øvel¬ 
se  kan  du  få  med  programmet!  Jeg 
fik  ideen  til  at  sende  programmet 
ind,  da  jeg  havde  købt  "SOFT"  et 
par  gange  og  tænkte,  at  det  ville 
være  rart  med  flere  lommepenge. 
Grafikken  i  spillet  er  ikke  god,  da 
grafik  ikke  er  min  stærke  side. 

N årjeg  programmerer,  er  det  i  BA¬ 
SIC,  selvom  det  er  langsommere 
end  maskinkode.  Men  maskinko¬ 
de  er  meget  mere  besværligt  at 
bruge. 

Jeg  har  overvejet  at  gå  på  aften¬ 
skole  i  maskinkode,  for  det  er  jo 
trods  alt  meget  hurtigere  end  BA¬ 
SIC  og  andre  højniveausprog. 

Jeg  er  ikke  begyndt  at  program¬ 
mere  på  Amiga'en,  forjeg  afprøver 
stadig  Workbench  og  færdige  pro¬ 
grammer  -  men  bare  rolig,  det 
kommeri  Det  Jeg  kan,  harjeg  selv 
lært  ved  at  låne  bøger  på  skolebi¬ 
blioteket.  Og  så  prøvede  jeg  mig 
også  frem. 

Nårjeg  (fordet  meste  om  aftenen) 
sætter  mig  foran  maskinen,  kom¬ 
mer  ideerne  langsomt,  og  så  pro¬ 
grammerer  jeg  dem.  Jeg  har  end¬ 
da  været  ude  for,  atjeg  fik  en  god 
ide  klokken  et  og  så  stod  jeg  na¬ 


turligvis  op  og  begyndte  at  taste, 
og  voila:  Et  program  btev  til. 

Jeg  har  prøvet  at  tage  mig  selv  i 
nakken  og  skrive  ned  FØR  Jeg  sat¬ 
te  mig  ved  maskinen,  men  det  sy¬ 
nes  jeg  ikke  var  sjovt,  så  det  gørjeg 
ikke  mere. 

Nu  er  der  godt  nok  længe  til,  atjeg 
skal  ud  af  skolen  og  endnu  vi l  jeg 
gerne  være  noget  med  EDB,  men 
jeg  er  bange  for,  at  der  efterhån¬ 
den  bliver  arbejdsløshed  -  så  det 
kan  godt  være,  atjeg  hellere  vil 
være  ingenør,  når  den  tid  kom¬ 
mer. 


Jeg  prø- 
grammerer 
bedst  i  sengen , 
med  masser  at 

the..." 


Navn:  John  Johansen 
Alder:  21  år 
By:  Roskilde 
Program:  Atmoswriter 
Til:  Orie  Atmos 
Bragt:  SOFT  3/86 
Gevinst:  800,-  kr. 

Jeg  lavede  Atmoswriter  afnød ,  for 
jeg  manglede  virkelig  et  tekstbe¬ 
handlings-anlæg.  Først  lavede  jeg 
programmet  i  BASIC,  men  det  var 
for  langsomt,  så  da  jeg  efterhån¬ 
den  lærte  assembleriavedejeg  det 
i  maskinkode.  Det  er  i  øvrigt  me¬ 
get  hurtigere. 

Jeg  har  selv  lært  det,  jeg  kan,  og 
maskinkoden  lærte  jeg  ved  at  be¬ 
nytte  manualen  og  en  lille  liste 
over  maskin  kode  instruktion  er. 
Jeg  prøvede  mig  simpelthen  frem. 
Og  jeg  havde  ingen  assembler  så 
det  foregik  ved,  at  jeg  i  hånden 
skrev  maskinkoden  og  derefter 
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slog  op  i  tabel  ler  for  at  se  hvad,  der 
skulle  ligge  hvor!  Efterhånden  blev 
det  for  meget,  og  jeg  fremstillede 
en  assembler  i  BASIC,  senere  (da 
jeg  fik  ordentlig  check  på  kode) 
oversatte  jeg  det  til  den  noget  hur¬ 
tigere  maskinkode. 

Jeg  har  slet  ikke  læst  nogen  bøger, 
men  er  alligevel  rimeligt  inde  idet 
hele  (efterhånden).  Jeg  program¬ 
merer  ikke  struktureret,  men  jeg 
laver  en  lille  rutine,  og  når  den  vir¬ 
ker,  fortsætter  jeg  med  næste  ru¬ 
tine.  Som  regel  får  jeg  nye  ideer 
undervejs  og  de  bliver  naturligvis 
også  kodede.  Da  jeg  havde  fuldt 
check  på  maskinkoden,  forbedre¬ 
de  jeg  mine  programmer  ved  at 
oversætte  dem  til  mc-kode. 

Når  jeg  ligger  i  min  varme  seng 
med  en  stor  kande  te  Ja  så  er  det, 
jeg  programmerer  bedst  Og  det  er 
absolut  ingen  hindring,  at  der  er 
masser  af  papir  ved  hånden.  Jeg 
skeler  ikke  til  tidspunktet,  og  den¬ 
gang  blev  maskinen  tændt  lige  ef¬ 
ter  skole. 

Nu  hvor  jeg  går  på  teknikum,  skal 
jeg  programmere  på  PCere  og  ly¬ 
sten  til  at  programmere  er  svun¬ 
det  en  hel  del,  så  det  er  nu  så  galt, 
at  jeg  kun  sætter  mig  ved  maski¬ 
nen,  når  jeg  er  tvunget  til  det. 


Jeg  lukker 
dørene  og  hå¬ 
ber,  Ingen  for¬ 
styrrer.  " 


Navm  Laurs  Laursen 
Alder:  39  år 
By:  Lystrup 
Program:  SuperBASIC 
Til:  Amstrad 

Bragt:  Alt  om  Data  4/86 
Gevinst:  700,-  kr. 


Jeg  programmerede  min  Amstrad 
og  fandt  visse  mangler,  og  tænk¬ 


te,  at  det  kunne  være  rart  at  have 
flere  kommandoer  til  rådighed. 
Bl.a  mangledejeg  en  hurtig  cirkel- 
kommando,  Jeg  købte  så  en  firm- 


ware-manual,  et  diskdrev  og  en  as- 
sembler-bog  og  så  gik  jeg  i  krig. 
Jeg  lavede  en  "diskoversigt  til 
printer"  rutine,  og  den  hurtigere 
cirkel-kommando,  samt  en  del  nye 
kommandoer,  der  alle  er  samlet  i 
SuperBASIC,  Det  var  meget  spæn¬ 
dende  at  lave,  da  jeg  normalt  er 
vant  til  at  arbejde  med  højniveau¬ 
sprog,  Min  Amstrad  kører  CP/M. 
og  på  min  arbejdsplads  har  vi  en 
CP/M  oversætter,  der  konverte¬ 


rer  CP/M  disks  ti!  MS-DOS  stan¬ 


darden  Det  giver  mig  mulighed  for 


at  lave  maskinkode  på  min  Am¬ 
strad  og  så  konvertere  filerne  til 
MS-DOS,  så  PC'en  på  arbejdet  kan 
bruge  Sourcekoden, 

Det  princip  benytter  jeg  bl.a  når 
jeg  laver  CAD/CAM  systemer 
hjemme  og  senere  overfører  det  til 
den  virksomhed,  hvor  jeg  er  ansat 
(Jeg  er  maskiningenør  og  mit  ar¬ 
bejde  består  bl.a  i  at  designe  CAD/ 
CAM  systemer  til  brug  for  CNC- 
styrede  bearbejd  i  ngs  maskiner 
(CNC:  Computerized  Notoric  Con¬ 
trol)), 

Jeg  hari  min  tid  programmeret  alt 
lige  fra  BASIC  til  PASCAL,  FORT¬ 
RAN,  APL,  PL/I,  Z80  og  8080  ma¬ 
skinkode.  Jeg  skriver  også  en  del 
kommunikationsprogrammer  til 
RS-232C,  Alle  disse  rutiner  skal 
bruges  til  styring  af  maskinerne. 
Når  jeg  skal  lave  et  program,  går 
det  bedst  og  hurtigst  med  en  god 
opgave,  og  jeg  foret  rækker  sti  I  hed 
og  vil  ikke  forstyrres.  Efter  jeg  har 
fået  ideen,  laver  jeg  et  blokdia¬ 
gram,  og  sætter  et  mål  for,  hvor¬ 
dan  dialogen  skal  være.  Alle  mine 
programmer  er  modulopbygget, 
det  gør  det  hele  lettere,  for  hvis 
man  skal  bruge  det  samme  modul 
i  flere  programmer,  bruger  man 
det  blot. 

Jeg  vil  Ikke  skifte  arbejde,  for  jeg 
laver  det,  jeg  er  uddannet  til,  og 
det  er  det,  jeg  gerne  vil 
Hvisjeg  skal  give  kommende  com¬ 
puterejere  et  råd.  så  skaf  en  maski¬ 
ne,  der  kan  køre  MS-DOS.  Ellers  vil 
maskinen  dø  meget  hurtigtl 


Min  limelen 
lå  på  SOO  kr  - 

skattefri! i" 

Navn:  Søren  Vejrum 
Alder:  19  år 
By:  Brønderslev 
Program:  62  K  RAM 
Til:  C-64 

Bragt:  Alt  om  Data  4/86 
Gevinst:  1,000,-  kr. 


Jeg  pro¬ 
grammerer  til 
musik  +  snacks 
og  drikke¬ 
varer . " 


Jeg  hk  ideen  til  programmet,  da 
jeg  ofte  var  ude  for,  at  jeg  skulle 
bruge  et  andet  program,  mens  jeg 

allerede  havde  et  i  lageret  og  så 
syntes  jeg,  at  det  var  for  besvær¬ 
ligt,  at  man  skulle  gemme  pro¬ 
grammet  i  lageret,  før  man  kunne 
loade  og  bruge  det  andet  Og  så 
var  den  sløve  1 541  jo  også  en  god 
grund,  ikke? 

Derfor  lavede  jeg  "62  K  Ram",  der 
gjorde,  at  man  -  når  man  havde 
Indlæst  62  K  Ram  -  kunne  bruge 
de  24  til  Ramdisk,  hvilketjo  gav  en 
500  gange  større  save  hastighed 
end  1541eren  havde.  Samtidig 
vi  Ile  fol  k  jo  tro,  at  det  var  en  aprils¬ 
nar  (det  blev  bragt  i  april-numme¬ 
ret,  red, )  og  det  gjorde  det  dob¬ 
belt  sjovt. 

Jeg  lavede  programmet  til  en 
64 'er,  men  nu  harjeg  købt  en  Ami- 
ga.  så  64’eren  er  hensat  ti  I  den  fjer¬ 
nere  del  afskrivebordet.  I  øjeblik¬ 
ket  roderjeg  med  maskinkode  til 
Amigaen,  men  lidt  BASIC  tager 
man  vel  ikke  skade  af.  Jeg  har  pro¬ 
grammeret  PASCAL,  LOGO,  CQ- 
MAL,  6510  maskinkode  og  nu 
68000  maskinkode,  og  selvom 
AmigaBASIC  er  temmelig  god,  så 
er  det  irriterende,  at  man  skal  bru¬ 
ge  musen  til  at  list  e  osv. 

Jeg  har  selv  lært  altjeg  kan,  for 
jeg  bruger  ca.  200,-  kr  på  blade 
hver  måned.  Samtidig  harjeg  haft 
tid  til  at  prøve  mig  frem  og  læse 
nogle  bøger.  Jeg  var  længe  om  at 
lære  6510  maskinkode,  men 
68000  er  ikke  så  svært,  når  man 
først  har  fattet,  hvad  mc-kode  er. 
Da  jeg  lavede  programmet  62  K 
Ram,  brug  te  jeg  ca.  4  timer  på  pro¬ 
grammet  OG  den  loader  der  blev 
offentliggjort  kort  efter,  ialt  fik  jeg 
2000  kr,  skattefrit,  så  det  er  jo  en 
ganske  god  tlmeløn.Jeg  program¬ 
merer  bedst  om  natten,  da  jeg  går 
på  HH  (jeg  er  lige  blevet  færdig), 
helst  skal  der  ligge  noget* Heavy 
Metal  på  pladetallerkenen  førjeg 
føler  mig  i  mit  es.  Nårjeg  ikke  skri¬ 
ver  noget  ned,  tænker  jeg  længe 
og  meget  over  programmet,  for 
ellers  går  der  helt  kage  i  program¬ 
meringen. 

Jeg  synes  ikke  at  folk  skal  spille, 
men  i  stedet  begynde  at  program¬ 
mere.  Det  er  meget  sjovere  i  læng¬ 
den. 


Navn:  Michael  Brandt 
Alder:  14  år 


By:  Allerød 
Program:  Rentabelt 

Til:  C-64 


Bragt:  SOFT  3/86  Gevinst:  400,- 
kr. 


Jeg  har  selv  haft  problemer  med 
mine  joysticks,  og  derfor  tænkte 
jeg,  at  man  da  kunne  lave  et  pro¬ 
gram,  der  viste,  om  det  varjoystic- 
ketdervar  noget  galt  med,  og  i  gi¬ 
vet  tilfælde,  hvad  det  var,  der  var 
galt! 

Det  er  lavet  på  en  64'er,  men  jeg 
har  senere  fået  en  PC-1 0,  så  nu  sid¬ 
der  jeg  og  leger  med  GW-BASJC 
hele  dagen  (altså  efter  skole).  Jeg 
har  lavet  en  database  et  par  gange 
og  hvergang  finder  jeg  på  noget 
nyt,  man  kunne  få  databasen  til  at 
gøre,  og  så  begynder  jeg  forfra. 
Jeg  har  også  lavet  et  primitivt  teg¬ 
neprogram  og  logoero,  1,  Lige  i  øje¬ 
blikket  prøverjeg  at  finde  nye  ting 
i  MS-DOS. 

Nårjeg  får  en  ide  til  et  program,  så 
hopper  jeg  hjem  til  hjemmealteret 
og  voldtaT  knopdyret  og  sådan  la¬ 
verjeg  fede  programmer (bl.a  min 
database  er  blevet  til  på  den  må¬ 
de).  Jeg  går  i  øjeblikket  med  en  ide 
om  at  lave  en  slags  GEM  system  til 
PC'eren  og  det  skal  ligne  Amiga1- 
ens  og  Macintosh1  styring. 

Jeg  kan  programmere  BASIC  (64' 
BASIC  og  GW-BASIC)  og  på  ung¬ 
domsskolen  harjeg  haft  PASCAL, 
det  gik  meget  godt  men  vores  un¬ 
dervisningsmateriale  skulle  retur¬ 
neres,  så  det  lærte  vi  ikke  meget 
af.  Endvidere  blev  der  leget  en  del 
med  LEGO's  robotter,  og  det  gjor¬ 
de  ikke  just  undervisningen  mere 
PASCAL-minded. 

Jeg  er  i  gang  med  at  lære  8080 
maskinkode,  men  det  er  lidt  svært 
da  jeg  ALDRIG  har  lånt  bøger  eller 
læst  noget  som  helst.  Jeg  har  til 
gengæld  fået  meget  hjælp  af  min 
fætter,  der  også  er  computergat 
Min  64‘er  blev  mest  brugt  til  spil, 
da  den  var  meget  svær  at  pro¬ 
grammere. 


Jeg  går  stadig  i  skole,  men  jeg 
drømmer  om  at  blive  systempro¬ 
grammør,  så  jeg  skal  først  på  gym¬ 
nasiet  (mat-fys)  eller  også  vil  jeg 
på  EFG  og  HH.  Forresten  ville  jeg 
gerne  have  en  IBM  PS/2  men  jeg 
har  ikke  40.000,  såeh.,.  -det  bl  iver 
jo  nok  ikke  til  nogetl 
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Når  jeg  pro 
gr  ammer  er A 

eksisterer 
sted  ikke  i 


Jeg  arbejder  (på  1 1,  år)  i  et  frit  ids¬ 
center  i  Hellerup,  og  programmet. 
Paintbox  1 28  er  faktisk  lavet  i  fri¬ 
tidscenteret,  Jeg  sad  nemlig  og 
forklarede  nogle  medlemmer 
hvordan,  man  lavede  grafik  på 
1 28’eren.  Og  efterhånden  somjeg 
demonstrerede  de  forskellige  mu¬ 
ligheder.  lavede  jeg  programlinier 
og  det  blev  altså  til  sidst  til  pro¬ 
grammet.  Så  man  kan  ikke  sige.  at 
jeg  har  tænkt  meget  over  pro¬ 
grammet,  jeg  tastede  bare... 

Jeg  programmerer  i  BASIC,  CG- 
MAL  80.  PASCAL  (standard)  og  as¬ 
sembler  (specielt  6510),  Jeg  har 
lært  PASCAL  på  EDB-skolen,  hvor 
jeg  læser  til  EDB-assistent,  jeg  er 
snart  færdig  og  så  viljeg  gerne  lave 
noget  andet,  for  jeg  vil  hellere  ar¬ 
bejde  med  EDB  end  i  et  fritidscen¬ 
ter  (hvor  vi  godt  nok  har  et  com¬ 
puterrum). 

Jeg  har  forresten  også  lavet  andre 
programmer  til  Cømmodore.  f.eks 
har  jeg  lavet  et  adventure -pro¬ 
gram  som  Commodore  Danmark 


A/S  ville  købe  af  mig.  Jeg  tegnede 
en  kontrakt,  men  Commodore  var 
for  langsomme,  så  den  droppede 
jeg.  Jeg  har  senere  oversat  pro¬ 
grammet  fra  BASIC  til  maskinko¬ 
de.  og  det  var  sjovt,  men  ikke  vi¬ 
dere  indbringende.  Jeg  har  også  la¬ 
vet  et  regnskabsprogram,  der  er 
fuldt  konkurrencedygtigt  (det 
blevjeg  budt  7,500,-  kr  for,  men 
jeg  ville  hellere  sælge  nogle  få  stk. 
til  en  rimelig  pris.  og  det  var  hel¬ 
digt  for  det  har  solgt  145  stk.  og 
det  sælges  stadig  i  butikkerne). 
Når  jeg  skal  lave  et  program,  så 
tænker  jeg  over,  hvad  det  skal 
kunne,  og  laver  derefter  struktur- 
diagrammer  og  dokumentation, 
og  så  er  det  meget  lettere  at  taste 
programmet  End.  Det  gør  jeg  iøv- 
rigt  bedst  om  natten  med  40  ciga¬ 
retter  og  masser  af  kaffe  (den  når 
som  regel  at  blive  kold).  Jeg  har 
også  lavet  flere  programmen  og 

det  er  mit  program,  der  styrer  hvil¬ 
ke  sejlere,  som  kvalificerer  sig  til 
OL  i  Seoul  i  ‘88. 


Her  er  La  Petite  Pro- 
gramme  eller  på  godt 
dansk:  Lxi.P.PJ 
Din  nye  sektion  med 
småprogrammer  og 
smarte  rutiner,  du  selv 
kan  lægge  ind  i  dine 
egne  programmen 
Lja.P.P.  —  sektionen, 

der  får  din  computer 
til  det  umulige! 
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**  INKEY  CODE  PROG .  ** 
**  (C)  E.H.P.  SOFT  ** 


■J|P  "1,1  -r  igL'1  ■vi1  lir  \Xf  mu 

^x  J^x  I  j^x  j^x  m^x  J^X  J^x  é^x  J^x  JfK,  -i*y-v 


ON  BREAK  GOSUB  160 
MODE  1 


90  LOCATE  1,1:PRINT  "Tryk  tasten  ned 
100  WHILE  I NKEY ( a ) =~ 1 
110  LOCATE  1,3: PEN  2: PRINT  a 
120  a=a+ 1 

130  IF  a=80  THEN  a=0 

140  WEND 

150  PEN  3: PRINT 

160  PRINT  "Inkey  koden  er=  ";a 

170  PEN  1 : PR I  NT 

180  PRINT  "Tryk  <SPACE>" 

190  WHILE  I NKEY ( 47 ) =- 1 : WEND 
200  a=0 
210  GOTO  80 


10  ’  **  Reset  call  t * 
20  ’ 

30  CALL  O 


8  -  TAST 


U.  **5*. 


Program:  Scroll 
Maskine:  Amstrad 
Gevinst:  100  kr* 
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Programmet  kan  scrolle  een  linie. 
Og  det  går  faktiskt 

såe  det  er  helt  okl 
For  at  du  kan  ændre  teksten  i 
scnoillinien,  skal  du  blot  ændre  va¬ 
riablen  A$  i  linie  20  og  25.  Således 
at  A$  kommer  til  at  indeholde  din 
egen  tekst  til  scrolllinien. 
indsendt  af: 

Jacob  Schultz 
Passagen  10 
2670  Greve  str. 


A 


Pr* NT *  fejl 


I 


B 


£Nb 


90  SCNCLRi  COLOR  0,1*  COLOR  4,1 
100  GRAPH I C  1  ,  1 
I  10  0PEN3 ,4  s  PRINT#3,CHR*C 8) 

120  FAST 
130  PC=1 
140  □ IM  BOC  7,7) 

150  FOR  Y=0  TO  133  STEP 7 


COLOR  5,2: COLOR  1,2 


160 
170 
180 
190 
200 
2  10 
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FOR  X=0  TO  319  STEP7 


FOR 


=0T0G 


FOR Y2  =0T06 

LOCATE  X+X2,Y+Y2 
IF  RDOTC  2  >  >0  THEN  BD(XS,Y2>=1 
NEXT  Y2 
NEXT  X2 
FOR  A=Q  TO  6 
FOR  B  =  0  TO  6 

IF  BD(A,B)=1  THEN  BD<A,B)=2tB 
NEXT  B 
NEXT  A 

FOR  1=0  TO  8 
FOR  IX  =  0  TQ  6 
P=P+BDC I  ,  IX) 

NEXT  IX 

P»P+iaBi  P*=P*+CHR*K  P ) s  F=Q 
NEXT  I 


PRINTH3 ,PÆ;  : 
FOR  H=0  TO  6 
FOR  J=0  TO  6 
BDC H , J ) =D 
NEXT  J 
NEXT  H 
NEXT  X 


PR  INT83  , CHRSC  13); 
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Program:  Flimmer 
Maskine:  C 64 
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Program:  Dobbelt  op 
Maskine:  Am  strå  d 
Gevinst:  100  Kr. 

Hvis  du  lige  står  og  mangier  det 
sidste  pift  til  programmet  der  ba¬ 
re  ka*  det  der,  så  var  det  måske  en 

ide  med  dobbelte  bogstaver?? 
Hvis  du  synes,  at  det  lyder  umu¬ 
ligt  så  tast  programmet  ind,  og 
se! 

Indsendt  af: 

Thomas  Pavstrup 

Østerbrogade  143 
2100  København  0 


1  *  Dobbelt#  bogstaver  med  CALL  42055- lin enr- 
10  FOR  E=42035  TO  42106: READ  C*:POKE  E, VAL < " &" +C*) : NEXT 
20  DATA  DD.6E, 00, DD, 23, DD , 23, 2D f 26, 00 , 29, 29 , 29 , 29, E5, Di, 29, 29, 19,  C9 
30  DATA  CD, 33, A4, 11,00, F8, 19, EB, 21, 50, 00, 19, EB, OE  02  E5  06  04  C5  OE 
40  DATA  02, 06, 50, £5, D5, 7E, 12,23, 13, 1 0 , FA , Dl , 7A , D6  08  57  El  OD  20  ED 
50  DATA  7C ,D6, 08, 67, Cl , 10, E3, Dl , OD, 20, DC, C9 


10  -  TAST 


REM  * 


1  PRINT  CHR$ (147) : 

SCROLL 

2  TEXT$ (0) -"MADE  BY  GREEN  SOFT 

1987  IN  DENMARK _ *' 

3  TEXT$(1) =" COMPUTER  IS 

BEST . " 

50  FOR  1“  0  TO  1 

55  AT=LEN (TEXT$ ( I ) ) :  FORQ=l  TO 

AT 

65  XP=2:  YP=1  :  GOSUBIOO: 

PRINT  MID$ (TEXT$ ( I ) , AT-Q+1,Q) 
70  NEXT  Q 

75  FOR  Q=1  TO  AT/2-1 

80  XP=2 :  YP-1:  GOSUBIOO:  PRINT 

CHR$ ( 20) 

85  FOR  W=0  TO  2000:  NEXT  W 
90  XP=0 :  YP-1:  GOSUBIOO: 

PRINT" (40  SPAGES)":  NEXT  I: 
END 

100  IF  YPOO  THEN  POKE  214, YP- 
1:  PRINT:  POKE  211 , X :  RETURN 
190  REM  ****  VEJLEDNING  **** 
200  REM  *  NAR  DU  SKAL  LIGGE 
FLERE  LINIER  I  DIN  SCROLLTEKST 
SKAL  DU 

210  REM  *  HUSKE  AT  ÆNDRE  LINIE 
50,  SALEDES  AT  1  TALLET  RETTES 
TIL  DET 

220  REM  *  TAL  DU  ER  NÅET  TIL. 
OG  HUSK  OGSÅ  AT  AL  SCROLLTEKST 
SKAL  STA 

230  REM  *  SOM  : 

TEXT$  (NR)  =  "TEKST"  I 

BEGYNDELSEN  AF  PROGRAMMET 
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Program:  Flere  scrolls 
Maskine:  C-64 
Gevinst:  100  Kr. 

Med  dette  smarte  program,  kan 
du  få  flere  scroll  linier  på  skær¬ 
men  ad  gangen.  Det  er  velegnet 
til  f, eks  Introduktioner  til  spil. 
Indsendt  af: 

Jesper  Andersen 
Louisegade  7 
9000  Ålborg 


1  FOR  A=842  TO  85 1 

2  i  POKE  Ar13 

3  NEXT  A 

4  1 NPUT  MC  CLR  >  STARTLINIE  C STORRE  END  25)  s  "ILN:  IF  LN< 25  THEN  4 

5  INPUT "SPR  ING  MELLEM  LINIERNE  :  11  i  S  i  PR  I  NT 

6  X-LENC STRSC LN) ) +8  :  Y=i:  P0KE2594,0 

7  CQL0R5  *  8  SPRINT  LNJ  "DATA  " I  :  IF  A*<>CHR*C13)  AND  A*<  > “  "  THEN  PR INTASI  S  X-X+ 1 


8 

GETKEY  ft*:  IF  ft*=CHR*C  17) 

OR  AS=CHR$t 

8 

9 

X  = 

=X+  1 

10 

IF 

ft*<  >CHR*<  13  )  ft  NO  Y<  3 

THEN  BEG  IN 

1  1 

■ 

■ 

IF  X=40  THEN  Y=Y+i:  X 

=  I 

12 

* 

S 

PRINTA*):  60T08 

13 

£ 

JEND 

14 

IF 

A*=*CHR*C  13)  OR  Y=3  THEN  BEG  IN 

15 

r 

i 

IF  Y- 1  THEN  A  =2 :  ELSE 

A  =  3 

16 

i 

i 

COLOR  5,12:  PRINT:  PR  I NT" P0KE208 , 

17 

i 

i 

FOR  1  =  1  TO  A  +  l:  PRINT 

CHR$<  145)1  ,  : 

18 

r 

i 

POKE  208, ft 

19 

i 

l 

LN=LN+S:  X=LEN< STR*C LN) )+5:  Y=1 

20 

p 

■ 

END 

2  i 

BEND 

45)  OR  AS=CHR^<  147)  OR  A*-CHRS<  19)  THEN 


I  Program:  Auto  data 
Maskine:  Cl  28 
Gevinst;  100  Kr, 

Dette  korte  program  er  faktisk  en 
dataliniegenerator  (puha.  et  langt 
ord),  og  det  er  lavet  for  at  hjælpe 
dig  med  at  indtaste  lange  datalist- 
ningerfra  TAST  Programmet  sør¬ 
ger  for  alt  for  dig.  Du  skal  blot 
fæstne  øjnene  i  bladet  eller  listnin¬ 
gen,  så  skal  programmet  nok  sør¬ 
gefor,  at  der  bliver  lavet  datalinien 

i  det  rigtige  format! 
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*  x  SS*  5S 

^C/spn/lF 
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startlinien 


10  pc=HIMEM~70: MEMORY  pc-1 

20  READ  a*:a$=UPPER*<a*):IF  a*="END"  THEN  40 

30  FOR  a=l  TO  LEN(a*»  STEP  2:P0KE  pc , VAL < +MID* (a*, a, 2) ) : pc=pc+i : NEXT: GOTO  20 
40  le-f  t=HIMEM+l;  right=le-f  t+35:  lb=lef  t  +  1 :  lh=le-f  t  +  10:  rb=r  ight+1 :  rh=r  ight  +  14 
50  DATA  2100001 10000CD1DBC06C8C5545DE5230I4FØØEDBØEB3600E1CD29BCC110ECC900000021 
00001 100 

60  DATA  ØØCD1D6C1 14F001906C8C5545DE52B014FØØEDB8EB3600E1CD29BCC1 10ECC9 
70  DATA  end 
100  ’denm 


110  r*=“dette  her  ruller  til 
120  l$="dette  her  rul  ler  til 
125  h-1 : v — 1 


haj  re-er j  ah  lit 
venstre-ertsrvev 


rel lur  reh  etted" 
lit  rel lur  reh  etted" 


130 

140 
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MODE  1 

POKE  lb, 16: POKE  lh,8:P0KE  rb, 24: POKE  rh,8 


PRINT" 


DETTE  ER  EN  DEMONSTRATION  AF 


PROGRAMMETS  EVNER 


LOCATE  40, 23: PRINT  MID* ( 1*, v, 1 I : v=v+l : IF  v>LEN(l$l  THEN  v=l 
LOCATE  1 , 22: PRINT  MID*(r*, h, 1 ) : h=h+l : IF  h>LEN<r*>  THEN  h=l 
FOR  a=l  TO  2:  CALL  le-ft:CALL  r i ght : NEXT: FOR  a=l  TO  25:  NEXT:  GOTO 


160 


12  -  TAST 


pro?TS 


m«*e 


/ 


Mongier  du  lommepenge?  Eller  har  du  bare 
en  brændende  lysf  fil  af  få  lidf  cool  cash  ? 
Anyway,  whafever  the  reason: 

Nu  har  DU  chancen  for  af  få  skyllet  lidf  exfra 
ind  på  den  slatne  bankbog!  DU  kan  tjene  kro¬ 
ner  med  dif  nye  nummer  af  TAST!! 


La PP  er  stedet,  hvor  DU  kan  lade  dine  små  vidundere  se  dagens  lys! 
Send  os  dine  KORTE  programmer  (helst  under  40  linier),  så  kvitterer  vi 
med  en  kold  og  crispy  500-krone  seddel*  Men  dit  program  skal  være 
GODT!  Det  skal  være  så  godt,  at  andre  gider  taste  det  ind  og  lægge  det 
ind  som  en  rutine  i  f.eks,  større  programmer!! 

Er  dit  program  ikke  noget,  eksperterne  bliver  forbløffede  over,  nøjes  vi 
nemjig  med  at  forære  dig  en  100-krone  seddel*  Og  er  mini-programmet 
direkte  dårligt,  ryger  det  direkte  til  papirkurvenes  favorit  jagtmarken 
Programmet,  du  sender  til  os,  må  som  sagt  være  på  højest  omkring  40 
linier.  Programtyperer  underordnet,  så  det  kan  være  alt  lige  fra  et  kort 
spil,  noget  seriøst  en  maskin -kode  rutine  eller  måske  en  smart  program¬ 
merings-ide.  Bare  send  ind,  vi  venter  i  spænding. 

Vi  vil  I KKE  have  hverken  bånd  el  ler  d  tsk,  for  ingen  af  programmerne  bliver 
returnerede.  Vi  har  heller  ikke  mulighed  for  at  fortælle  dig.  om  dit  pro¬ 
gram  kommer  i  TAST  eller  ej .  Det  opdager  d  u  først  når  du  ser  det  i  bladet 
og  står  med  din  500-LaPP. 

Ideen  har  vi  nappet  direkte  fra  vores  søsterblad  "COMputer"  (dem  med 
Super  20  afdelingen  i  hvert  nummer).  Men  vi  er  ikke  så  strikse:  Vi  god¬ 
tager  nemlig  rutiner  og  short-cuts  til  ALLE  datamater,  lige  fra  Amstrad 
til  ZX  Spectrum, 

Ja,  uanset  hvilken  dataputter,  du  har  stående  i  skabet,  kan  vi  bruge  små 
korte  ting  til  den.  Altså:  Fat  printeren  eller  din  skrivemaskine  og  send  os 
din  korte  listning!  Samtlige  datamærker  godkendes. 

Og  pengene,  du  tjener,  er  skattefrie.  Du  skal  ikke  opgive  dem  til  det  kære 
væsen  -  det  har  vi  nemlig  allerede  ordnet  for  digi 
Rasmus  Kirkegård  Kristiansen 

PS:  Det  er  naturligvis  unødvendigt  for  os  at  nævne,  at  du  selv  skal  være 
ophavsmand  til  mesterværket  -  ELLERS  FÅR  DU  NEMLIG  [NGEN 
KRONER  1  Og  derudover:  Hvis  du  fupper,  bliver  du  samtidig  totalt  van¬ 
æret  og  til  grin  og  vil  aldrig  kunne  leve  et  anstændigt  liv.  Endvidere  vil  du 
blive  sigtet  efter  straffelovens  ramme  under  paragraf  8,  der  kan  give 
fængsel  i  op  til  79  årsamt  den  elektriske  stol,,.  Så  husk  nu,  at  det  skal 
være  dit  eget  prog* 


Send  dif  lille  (max.  40 
TAST 

Aft.:  La  PetHe  Programme 
St.  Kongensgade  72 

1264  Kbh.  K. 


vidunder  til: 


Husk  at  vedlægge  dif  navn  og  adresse. 


Xtr 


tf  -  WSK 


ftø-'-V 

\  . 


■„> 


nemme 

liv... 


•>j-? 


. .  va 


s- 


r«f 


1 


V 


Pi 


Jr  -  . 


■  IV- 


■as 


■ri 


7JGr 


'63.  Et  spil  polo.  Og  det  nye  SOFT. 


SOFT  hører  med  til  en  vellykket 
weekend  -  hvis  du  vil  nyde  det 
nemme  liv  med  stil.  For  SOFT  er  i 
en  klasse  for  sig  selv,  præcis  ligesom 
-  På  toppen. 

I  dag  er  det  blevet  endnu  nemmere 
at  nyde  det  nemme  liv.  Tegner  du 
abonnement,  får  du  nemlig  SOFT 
leveret  direkte  til  døren.  Portofrit. 


Nemt 
kan  få 


2-3  dage  før,  de 
i  kiosken. 


Ikke  bare  sparer  du  penge  ved  at 
abonnere.  Du  får  også  bladet  før  det 
udkommer  og  slipper  for  besværet 
med  udsolgte  blade  i  kiosken. 

Nyd  livet  noget  mere.  Få  et  SOFT- 
abonnement  i  eget  navn. 


Ja  takr  send  mig  SOFT  i  et  helt  år  (bare  164  kr.) 
Abonnement  ønskes  startet  fra  og  med  nr.  - - 


(kan  også  startes  med  tidligere  numre). 

164  kr.  vedlagt  i  check 
eller  indbetalt  på  postgiro  9  40  60  77 


Navn 


Adresse 

Post-nr. 


By 


Send  til.  SOFT.  St.  Kongensgade  72,  1264  Kbh.  K. 

Enjoy  the  easy  way  of  living,  Subscribe, 


-  W 

.  -dt-  j 


LaPP 


Program:  Tastaturbeep 
Maskine:  C64 
Gevinst:  100  Kr. 

Ja  vi  ved  det  godt,  det  er  set  før, 
men  alligevel  kunne  vi  ikke  stå  for 

programmet.  Det  er  nemlig  det 
sjoveste  beep,  vi  længe  har  hørt. 

For  nu  kort  at  fortælle  de,  der  ikke 
har  set  programmet  før,  kan  vi  si¬ 
ge.  at  det  hver  gang  du  trykker  en 
tast  g  iver  et  ha  Ivkvalt  beep  fra  sig. 
Det  sker  også,  når  du  indtaster  et 
andet  program  fra  La.RP. 
Indsendt  af: 

Jesper  Lillesø 
Mølleparken  29 
7100  Vejle 
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RASTERFARVER  C64 


1G  FDR  T  = 12545  TO  1067c 
20  ;  POKE  T,255-C :  C  =  C+2 
30  NEXT  T 

40  FOR  T  = 1 2353  TO  12490 
50  i  POKE  T,B  :  B*8+l 

SO  NEXT  T 

70  FOR  T=1223S  TO  12357 
80  i  READ  A  :  POKE  T,A 
90  NEXT  T 
100  POKE  12544, 1 
110  SYS  12288 
120  : 

130  DATA  1 20 , 1 69 ,0,141,14 ,220 ,169,1,141 ,26,208 , 169,27 ,141 , 17,208, 169,28, 141 
140  DATA  20,3, 169 ,48 , 14 1 ,2 1 ,3 ,93 ,96, 173,25,208, 141 ,25,208,4 ! , 1 ,240,28 , 198  ,255 
150  DATA  18,4,169,127, 133,255 , 164 ,255, 165,69,48 ,141,32 ,203 ,185,0,49,141, 18,208 
160  DATA  136,208,3,76,49,234,78 , 128,234,0 


14  -  TAST 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 


DIM  xX (  250 ) , yX ( 250 ) 

mX=l : MODE  mX: iX=3: MG  VE  320,200 

FOR  x  =  l  TO  66  STEP  0.1 

DRAW  320+3*x#C0S ( x ) , 20Q+3*x*SIN ( x ) , 1 
NEXT  x 

DRAWR  20,-40 

PLOT  -10.-10,3:M0VE  315,200 
GOSUB  1010 
PRINT  <t2-tl)/300 
END 


program 

Maskine 

Gevinsts 


i  ^ 

Amstrad 


Programmel 
ILLp 
kan 

skærmen 


som 


skrevet 


område 


vores 


program. 

grafik- 
sasterbla' 


bragt 


en 


rutine 


men 


vi 


p ringer  ner 


er 


ca.33%hur 


1000 
1010 
1020 
1030 
1040 
1050 
1 060 
1070 
1090 
1100 
1110 
1115 
1140 
1150 
1160 
1165 
1170 
1180 
1190 
1200 


’ HUSK!  m=mode-vaerdien. 

z%=-4 : s%=0 : dX=2A  1 2-mX) : xX  t  O ) =XPOS : yx ( o ) 


YPOS 


sX=sX-l :  MOVE  xX.yX 
1060 

1180 


1190 


IF  sX<Q  THEN  RETURN 
xX^xXtsX) : yX=yX (sX) 

IF  TESTR <dX.O)  THEN 
xX=xX+dX:GOTO  1040 
IF  TEST ( xX, yX)  THEN 
PLOT  xX.yX 
IF  TESTR (0,2)  THEN 
IF  tX  THEN  1140 
sX=sX+ l : xX ( sX ) =XPGS : yX ( sX ) 

tx=i 

IF  TESTR (O, zX>  THEN  1200 
IF  eX  THEN  1170 

sX=sX+ 1 : xX  t  sX ) =XPOS : yX ( sX ) = YPOS 

xX=xX-dX: GOTO  1060 
tX=0:eX=0:G0T0  1020 
tX=0:G0T0  1140 
eX=0: GOTO  1170 
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(CRSR 
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(RETUR 
(SPACE) 
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(RkS 
(SORT) 
(HMD) 

(RØD) 


HØJRE) 


Home 

Cursor 

Cursor 


cursor 

ned 


SHJFT 


CLR/Rome 


Ci-R/ROME 


Cursor 


insert 


venstre 

tilbage 


SHIFT 

CRSR 


op/weo 
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OP/ NED 


HØJR£/V£jv 


s  tre 


'n 


Space 

Reverse 


on 
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Program:  Rasterfarver 
Maskine:  C 64 
Gevinst:  100  Kr. 

Nej,  det  er  ikke  set  før,  selvom  det 
lyder  sådanl  Programmet  her  la¬ 
ver  en  meget  sjov  skærm,  hvor 
borderen  er  farvet  i  127  forskelli¬ 
ge  farver  og  det  nederste  af  skær¬ 
men  er  sort,  mens  det  normale 
skærmbillede  natruligvis  er  -  nør- 


(SlAA) 
(GUL) 
(ORANC 
(BRUN) 
(i- RØD) 
(CftAAj ) 

(GRaa?) 

(L.GRØjv) 
J'  6L4A) 


trange 

Brun 

tyserøa 


WST/DEL 

'“T/æt 

Space 
Ctrl  9 

Ctrl  o 

CTRL  I 
CTRL  2 

CTRL  3 

CTRL  4 
CTRL  5 
CTRL  6 
CTRL  7 

CTRL  8 

COMWOOOR 


I 


GOMMo^OR 


E4 


imF  ■*" 

Lyseblå 


oommodore 


6 


Hvis  du  vil  lave  noget  lidt  ander¬ 
ledes.  skal  du  blot  skrive: 

POKE  53265,11  efter  du  har 
RUN'et  programmet,  hvad  der 
sker.  tja,,. 

Indsendt  af: 

Jan  Fuglesang  Petersen 
Kastanievej  3 
6950  Ringkøbing 
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FLrnktio 


onstast 


Funk  ti 

Fonkti 


Funkt; 
Funkt, 
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f  ØU 
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rus 

p™ 

c 

"  Gi<: 
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MUS 

i 
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c 

5?  Q9  PJ 

16  -  TAST 


330 

MUSIC 

n  Q'p  ii 

300 

PRU5E 

O 

■ 

310 

mi  jqt  r 

t  *  *_J  O  jl  L j 

nf2u 

320 

MUSIC 

"G411 

330 

MUSIC 

,r  G2 !l 

340 

PRLISE 

J~E 

IliBT 

S  50 

MUSIC 

"  f  2" 

360 

MUSIC 

11 G4  " 

370 

MUSIC 

”  £4" 

380 

MUS  I  C 

11 R411 

330 

MUS  I  C 

”  G4  ” 

1  O  00 

MUS  I C 

"  f8M 

i  010 

MUSIC 

"ES" 

1 020 

MUSIC 

"DS” 

1 030 

MUSIC 

"C8" 

2000 

PGKE  i 

64 1 S 

2001 

PRINT 

RT  2 

!1 ,  G 


il 


<C) 


BY  JR 


KDB  PEDERSEN -SOFT 


li 


2 GO 2  PGKE  16413,2 

2003X=10 

2:  e  *o  4  t = o 


4000 

IF 

INKEY*="4 

ii 

THE 

NX 

=  X-1 

4  0 1 0 

IF 

INKEY*="R 

il 

i  h  c. 

NX 

=  X+1 

4  O  20 

IF 

INKEY$=" U 

ii 

THEN 

GOTO 

4  O  2 1 

IF 

x= 

0  THENX 

— 

1 

4  O  22 

IF 

X= 

20  THEN 

X 

mi  i 

13 

4  O  30 

PRI 

NT 

RT  X,0 

■ 

* 

II 

d 11 

4  O  3 1 

PRI 

NT 

RT  X+l 

1 

0 

■  H 

7 

11 

4  O  32 

PRI 

NT 

RT  X-l 

"1 

0 

p  11 

7 

II 

4O40T 

=T+ 

4050 

PRI 

NT 

RT  0,  1 

5 

u 

7 

r 

s 

4060 

I F 

T = 

100  THE 

N 

GOT 

n 

6000 

4070 

GOT 

0 

2035 

o 


5005  SOUMD  5,5000 


OOS  FOR  S= 1  T O 2 O 


5  0 1  ø 


PRINT 


AT 

n  a 


x ,  s ; " 


11 


5ø2ø 
c:!  025 


■>  *  *  1 1 
2  1  i 
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□  □TO 


2003 

PRI 

NT 

RT 

17,  22 

V 
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11 

m  W 

60 

2  0 1 0 

PRI 

NT 

RT 

IS,  22 

■ 

f 

1! 

13*16 

L  >  O 

2  020 

PRI 

NT 

RT 

13,  22 

M 

7 

u 

k/ 

3MH  SBB  W" 

6  C  j 

2030 

PRI 

MT 

RT 

20  j  22 

1 

11 

0 

k 

AøAø" 

6ø 

2035 

PRI 

NT 

RT 

}*  ■“*  i  p 

i  si  -*:«  a  7 

!  1. 

!! 

7  0 

204®« 

“IN 

T 

(RND 

&  2  y ) 

EU  < 

3000 

PRI 

NT 

RT 

M,  21 ; 

'31 

M 

El 

70 

3;  0  1 0 

IF 

v$ 

— *  li  T  li 

j 

THEN 

□□TG 

4  øøø 

1  ! 

3  O  20 

IF 

INKEY* 

=  "  L  " 

T 

HEN  X 

-X 

H 

JL 

4# 

3  G  3  G 

I F 

INKEY$ 

»  n  11 

”  «■ 

l 

H 

EMX 

=x 

1  j 

"i*  1 

NC 

3040 

v  rr 

.l  r 

IN 

KEYt 

s  n  p  11 

TH 

EN 

GO 

TG  5000 

3041 

I F 

X=i 

ø  T  H 

EN  X=  1 

p 

3042 

I  h 

x- 

20  THENX« 

J 

i 

3 

ST 

3050 

PRI 

NT 

RT 

X,  ©i” 

d 

ri 

70 

3051 

PRI 

NT 

RT 

X-l,  0 

M 

■** 

■B 

it 

8! 

U 

3052 

PRI 

MT 

RT 

X+l ,  0 

tf 

7 

at 

Il 

70 

3  O  6  O  T 

£££  j  Hr 

1 

i. 

7ø 

3  O  70 

PRI 

MT 

RT 

0, 15; 

pi^'8* 

70 

3;  G  8  O 

IF 

100 

THEN 

G 

OTO 

60  GU 

7  O 

3  O  90 

GOT 

□ 

2035 

71 

NEXT  S 
PRINT  AT  X, 

IF  X=M  THEN  GOTO 

2035 

5500  CLS 

5505  PRINT  "bravo  DU  FIK  SKUDT 
DSTANDEREN  .DG  KAN  NU  FLYGTE  MED 
*'  ’  INT  (  RND^iØøøOø  >  S  11  DQL-LPRS  -V 


MD 


fl 

L. 

DU 

PROVE 

IGtcN  ,  -  - 

II 

5 

ET 

O 

10 

D 

f 

R 

INT 

"MEI 

5  JOYSTICK 

(J/N 

h  n 

5 

2ø 

T 

i. 

N 

PUT 

V$ 

5 

5 

*“  C 
4LU 

1 

F 

V$= 

ji( 

THEN 

CLS 

5 

55 

30 

T 

i. 

jr 

t 

vs- 

li  Ti) 

J 

THEN 

GOTO 

2 00  0 

5 

!>■■■ 

35 

1 

F 

V$= 

"N" 

THEM 

CLS 

er 

itr 

40 

1 

F 

V$= 

11 N" 

THEN 

GOTO 

2  0 0 0 

E"  1CT 


O  GOTO  5520 


6000  CLS 
6005  PRINT 
DU  BLEV 


il 


r  r  y 


HJAELPEN  KOM  OG 

STEDET  . . . 


6  O 1 0 
6  0 1 5 


"te 


MED  JOYSTICK  (J/N) " 
IT  Vt 

j. r  I NKEY$=" J"  THEN  CLS 
IF  V*="J"  THEN  GOTO  2000 
IF  INKEY4-"N"  THEM  CLS 


T  F 


50  IF  0$=* "N" 
6040  GOTO  6010 


THEN  GOTO  2000 


PRINT  ">>>>>>>> >fc  i  ck—turpin 


RT 


AT  DU 


3,05 "DETTE  SPIL  GftflR 
ER  DI GK  TURPIN  >d( 
OPGRVE  ER  RT  SKYDE  DEL  I GE 
REREN  ,  INDENHJREL 
DU  KRN  FLYGTE 

ENE  .  VIL 

CJ/N) 

PRINT  RT  9,ø;!'£Li 


DU 


i'it-u  RLLE 
HR VE  JOY 


A=SKYD 
INPUT  V* 
IF  V$= 

IF  Vi=“N" 
GOTO  7020 


.  =NED 


J 


I 


STYRER  D 
OP.  " 


ii  rn 

J 


THEN  GOTO  7100 
THEN  GOTO  7100 


>0  PRIMT  RT 
LOD  I  EM 
7105  IF 


"  -* 


7 

~T 

f 

7 

7 


I  7 

<  J/N) 11 
I  NKEY$=I!  J" 

=  "  J" 

=  "N" 


O! "VIL  DU  HØRE  ME 


:l  10 

IF 

I NKEY$ 

i.  15 

IF 

INKEYt 

i.  20 

IF 

I NKEY$ 

L  30 

GOT 

0  7105 

3  0  0 

CLS 

THEN  CLS 
THEN  GOTO  5 

CLS 

GOTO  2 


9010  SAVE  "DICK" 

9015  30UND  13,  15 
9020  PRINT  RT  10,  5;"DICK  TURPIN  ER 


L  ORDET’1 

3030  PRIMT  RT  21 , 10 1 "x r y rast ” 
3040  IF  INKEY$=" "  THEM  GOTO  9040 
3045  CLS 
3050  GOTO  7000 
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Et  "must"  for  dig,  som  taster  ind. 

Peter  Marino 


1 

U  =  5324 

S  :  S 

=54272: PGKE 

S 

+ 

PM 

■—  *  1 

15 

:  PGKE 

S  + 

4, 32: PGKE  S 

0 

:  POKE 

B, 2SØ: PGKE 

Q 
“  * 

i 

-L 

0 

2 

PDKE  S 

+. 1 

Jl  , 

10: IF  PEEKC 

70 

M- 

JL 

3  =  1 

TH 

EN  15 

1  t7i 

-X  ^ 

trnp  t 

å  4  \  =4, 

=  40 

152  TO  40255 : 

P 

i  i 

EAD 

ft 

:  PGKE 

■*  T 

ø : NEXT : FDR 

T“ 

B 

SE 

TG 

950 

:  PEftD 

&  - 

PDKE  T,ft:NE 

XT 

11 

PGKE 

704 

1  ■*" 

1 S 

S 1  =  0  : 

S5~ 

0 : 50SUE  2000 

2ø 

PGKE 

U^4 

1,1: POKE  U+ 

U 
*  1 

1 

27 

:  PGKE 

U+ 

C  1  p*7  .  pp  1  MT 

'—j  4  -kr  •> -  «■  *  h  4  I  V  -4 

3T  r 

HU  ID 

nr 

p  >  ” 

*  v  «*■ 

;  PGKE 

20 

43, 13: PGKE 

20 

u 

J. 

T  1 

-*~  T 

3 

31 


33 


PU 


PPI'  c- 

I  j  \ 


2043, 14 

PP  T  MT  C  MU  IH'l 

■  +  \  Ja  M  jL  -grill-  ^V"  Jl  tul  j- 


1-  T 


CmO 


y-i  to  oa 

IP  Y-ll  THEM  PRIMT " C  RUS  GNU (PUS 

prc’i  a 


JL  J. 


*  MF YT  V 

*  I  *#  Irir-  g  V  a-  4 


IF  Y-12  THEM  PRINT”(RU5  GN3IC.RUS 
QFF? -  % - 


11 


.  MITVT  V 


t  a^-  r  Jk 


PR  I  MT” (PUS  GN3ICCHSR  HØJREIS, 
RUS  GFF, SPACE! | C  RUS  DN, 


18-  TAST 


GAMES 


CP5R  HØJRE1B , RUS  DFFD1 ” ; : NEXT  V 
35  PRINT”  "(RUS  □  N  J 

:POKE  2323, 126: PGKE  56313,1 
40  SYS  43152 : PDKE  U+32,3:FGKE  U+16,1 
: PDKE  U,63:T2=-7 
5ø  PRINT” C  HOME, RUS  GN , SORT , 

SPACEBl’SP  ILLER  ET  SPILLE 


R  TQ 


”  : PDKE  U  +  21 , 7: D1-1S7 


51  B=1 : T1”T2 : DS“D1 
70  PGKE  U+41 , 5 : PDKE  U+4.D1 

: PGKE  U  +  5 , D2 : PGKE  U+41 , 1 : D1-D1+T1 
: 0-0-1 

101  D2=D2+T2:IF  D  1< 0  OR  Dl>255  THEN 
D1-ABSCD1-CE4B3 J : S=AES(E-E:j 
: PGKE  U+1G.E 

110  IF  PEEKCU+30?>0  AND  A< 1  THEN  Tl= 
-TI : 0=10 : GGSUE  4000 
120  IF  D2>22E  GR  D2<60  THEN  T2=~T2 
130  I F  C  Dl >  BØ  AND  B-5 1DP  C  Dl< 10  ØND  B= 


Tis 

JL 


W  CM  Tp-mTp 

å  fc  * —  i  #  Jk  _  J-  fc — 


11 THEN  1000 
500  GGTD  70 
1000  IF  B=5  THEN  1020 
1010  S2=S2+ 1 : TI =-7 : GOTO  1040 
1020  SI  “SI  +  i : Tl=7: PRINT” C HOME, 

GRSR  HØJRE14 , RUS  aNj”Sl 
1040  PRINT  ” C HGI1E  ,  CRSR  HØJRE34  , 

RUS  GN 1 ”52 : I F  8=5  THEN  PDKE  U+16,1 
:  E=1 

1060  Dl =180 : POKE  U+4 , Dl : POKE  U+5, Dl 
I 065  IF  S2=H I  GR  SI-HI  THEN  PEINT”CH 
0!1E  ,  GRSR  NEDIS,  CRSR  HØJRE151GAHE 
DUER ” ; : GOTO  15 
1030  POKE  139,0 

1035  SET  A$:IF  A$<>”  ”THEN  1035 


1100  GGTD  70 

2000  FGR  X  =  1  TG  3000: NEXT  X 

2500  PRINT” C L . BLAA , CLP , RUS  GN, 
SPACE151PING  PGNG 

: PGKE  U+21,0 

2501  PRINT”  LAUET  AF  JOHN  MIKKELSEN 


S  PETER  NAR  I  NC  ” : PDKE  193,0 

2510  PR  I  NT ” C CRSR  NED3 , 

CRSR  HØJRE2 1SPILLER  1  BRUGER  JGYS 
TIGK  PDRT  I ” : PDKE  U+32,0 
: PGKE  U+33,3 

2520  PR  I NT” C CRSR  HØJRE2? SPILLER  2  BR 
UGER  JOYSTICK  PGRT  II” 


2S30  PR  INT  ”  C CRSR  HØJREB  , 

CRSR  NED 5 EFTER  ENDT  SERUE  FORTSAE 
TTES  SPILLET” 

2540  PR  I  NT” C CRSR  HØJREB  1  UED  TRYK  PAA 

C  RUS  ON, GUL  ISPACE  C L . BLAA , 

RUS  GFF 1 ” 

2550  PRINT” (CRSR  NED2 , 

CRSR  HØJRE21 HU  I LKEN  BEGRAENSNING 
SKAL  DER  UAERE” 

2SGØ  PR  I  NT” (CRSR  HØJREB) PAA  POINT  C 


^  J 


JR 


1-DER  UD  A ' 3 
70  I  NPUT” (HOME, CRSR 
CRSR  HØJREBS) ” ; H I 
30  IF  H I < 1  THEN  2570 


NED14 , 


25SØ  PRINT  ” C CRSR  NEDS, 

CRSR  HØJRE21TRYK  (GUL, 

RUS  ON  3 SPACE C  RUS  DFF , L . BLAA , 
SPACE3FGR  AT  STARTE” 

25S5  GET  A$:IF  A$<>”  ”THEN  25S5 
25SE  RETURN 

4000  PGKE  S+4 , 33 : PGKE  S+4 , 32 : RETURN 
43152  DATA  076 , ØGG , 1SB , 000 , ØGØ , 000 , 
000 , 060 , 000 , 000 , 060 , 000 , 000 ,  060 , 


4S16S  DATA  000,000,060,000,000,060; 
000 , 000 , 060 , 000 , 000 , 060 , 000 , 000 , 


43186  DATA  060,000,000,060,000,000, 
060 , 000 , 000 , 060 , 000 , 000 , 060 , 000 , 


$ 


43203  DATA  000, 
000 , 060 , 000 , 
000, 162, 000 
43220  DATA  133, 


060 , 000, 000 , 060 , 000 
000 , 060 , 000 , 000 , 060 

003, 132, 167,064,003 
208,245, 163,001 , 141 


040,208, 

43237  DATA 
208, 163, 
141 , 001 , 
43254  DATA 


163 

25S . 141.021. 20B . 141 . 000 


026, 141 
208 

141 , 003 
141 , 033 


,208,163, 


003,208, 169,005, 141 
033,208, 120,163, 126 


141 , 020, 

71  DATA 

096, 174 , 
172,001 , 
88  DATA 


169, 192 
000 , 220 


,  141 , 021 , 003,088 
,224, 12E , 208 , 013 


88  DATA  132,050,208,003,076,146 
192,206,001 , 20B, 224, 125,208,013 


49305  DATA 


192,223,208, 
001. SØB. 174. 


076. 163 


174,001 , 


254.208, 
49322  DATA 

003,076, 

253.208, 
43339  DATA 

003,076, 
049,234, 
49400  DATA 
000 , 000 , 
000 , 000 , 
49410  DATA 
000 , 000 , 
000 , 000 , 
49420  DATA 
300,000, 
000,000, 

49430  DATA 


013 

172,003,208, 

183,192,206, 

013 

172,033,208, 

200,192,230, 

096 

000,000,000, 

000 , 000 , 000 , 

300 

000,000,000, 

000,000,060, 

126 


192 , 050 , 208 
003, BØB, 224 


192 , 229 , 20B 
003,208,076 


000,000 
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Read  Puzzle  er  et  noget  atypisk 
racerspil  til  en  C64,  hvor  farten  er 
gledet  s  baggrunden  til  fordel  for 
hurtigt  logisk  ræsonnement.  Spil¬ 
let  er  opbygget  ligesom  ”15  spil¬ 
let",  hvor  det  gælder  om  at  sætte 
1 5  talbrikker  i  rigtig  rækkefølge,  f 
Road  Puzzle  ertalbrikkeme  blevet 
erstattet  af  små  vejbanen  som  din 
lille  prik  af  et  køretøj  skal  køre  på. 
Hver  gang  din  bil  forlader  en  brik. 
skal  du  sørge  for,  at  der  er  mulig¬ 
hed  for  at  køre  videre  på  næste 
brik.  Da  alle  overkørte  brikker  bli¬ 
ver  blanke,  er  det  til  sidst  noget  af 
et  kunststykke  at  fremskaffe  vej¬ 
bane  til  din  asfaltstuger  Hvis  det 
på  noget  tidspunkt  går  en  kende 


terburneren  til  ved  at  holde  fire- 
tasten.  Hvis  du  kører  ud  i  en  af 


på  den  modsatte  side.  På  redak¬ 
tionens  vegne  lover  vi,  at  Road- 
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JESPER  H0¥" 

FRI  NT” CRSR  NFD2 , CRSR  H3JRE10  3  EN 
TER  SPEED  C1-3II  (RUS  ONjØCRUS  OF 

F , CRSR  UENSTRE  ? ” ; 

230  GET  XS: IF  X$<”l”OR  XS>”3”THEN  230 
240  PRINT  XS :  SP=7-UAL  C  XS5  3  *2 
250  PRINT” C ORSR  NEDE, CRSR  HØJRFIØJSE 
TTING  UP  HIGHUAY  — ” 


1  Ofl‘7 

j,  w  kJ  f 


2GØ  PR  I  NT"  C  KONE  ,  BLftft  ,  SFftCE  I'ROftD  LEET 
:  0  “i:  100  C6RAA1  ?  " 

2^0  R0=2 : FOR  X=1  TD  1 


*  + 


Y-l  TO  1 


:  FE  C  X  ,  Y  ;<  =  23 :  NEXT  Y,X 
SØ  BX*=  I  NT  C  RND  CØ  1*75  +  1 

: EY= I NT  C  RND C 0 ) * 1 2  3  + 1 : FE  C BX . BY 


■\  =U 


u 
*  » 


2SØ  HX“INTCRNDCø:'*?:>  +  l 
: HY-INTCRND<0?*123+1 
: I F  HX=EX  AND  HY-BY 
300  FEr  HX , HY  3=0 
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420  FOR  X=1  TO  7: FOR  Y-l  TO 
: I F  FECX.Y5<SØ  THEN  470 
430  U=INT':RNDC03*33+2:  FFCX  ,  Y 3  =  U 
440  IF  U-4  THEN  RQ=RO+l 
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S10  G-FECBX.BY) 

520  ON  R  GOTO  530,640,750,860 
530  ON  G  GOTO  0,540,0,540,0,0,560, 
600,600,560 

540  FX=FX-1:IF  FX>0  THEN  RETURN 
550  GOTO  S70 

560  IF  FX< 20  THEN  FY  =  FY+1 
570  IF  FX> 12  THEN  FX=FX-1 
580  IF  FY< 25  THEN  RETURN 
590  GOTO  970 

600  IF  FX< 20  THEN  FY=FY-1 
610  IF  FX> 12  THEN  FX=FX-1 


IF  FY> 0  THEN  RETURN 
630  GOTO  970 

S40  ON  G  GOTO  0,650,0,680,670,710,0, 
0,670,710 

FX-FX+1:IF  FX< 25  THEN  RETURN 


/ \t 


660  GOTO  970 

670  IF  FX> 4  THEN  FY-FY  +  1 
5BG  IF  FX< 12  THEN  FX-FX+1 

IF  FY < 25  THEN 
GOTO  970 
710  IF  FX> 4  THEN  FY-FY-1 
720  IF  FX< 12  THEN  FX=FX+1 
730  IF  FY> 0  THEN  RETURN 
740  GOTO  970 

750  ON  G  GOTO  0 , 0 , 760 , 760 , 760 , 0 , B20 
0,790,623 

760  FY=FY~1:IF  FY>0  THEM 
770  GOTO  970 

7BØ  IF  FY<20  THEN  FX-FX-1 
790  IF  FY>  12  THEN  FY=*FY~1 
800  IF  FX> 0  THEN  RETURN 


RETURN 


910  GOTO  973 


920 


FY<  20 
FY>  12 


THEN 
I  HEN 


IF 
IF 

840  IF  F X < 2  _ 

950  GOTO  970 

860  ON  G  GOTO  0 , 0 , 970 , 870 , 0 , e90 , 0 , 


THE  N 


FX-FX+1 

FY-FY-1 

pPTi  j PM 

1  Jk.  kJ  l\\  -É 


Q'qra 

wJw  n 

930,890 

973 

ITV  — 

FY*1:IF  FY< 25  THEN 

990 

GDI 

n  q 

890 

IF 

FV>4  Tupm  fv-rv  —  1 

A  A  -IL  *  k  ■  J  4  ■'  k  *  J  'm  JL 

900 

T  P 

FY< 12  THEN  FY=FY+1 

S10 

IF 

F X >  0  THEN  RETURN 

820 

GOTO  570 

930 

IF 

FY>4  THEN  FX^FX-l 

940 

i  p 

J.  JL 

FY< 12  THEN  FY-FY+1 

950 

T  P 

Jm  Å 

FX<  25  THEN  RETURN 

960 

GOTO  970 

TAST  -  21 


GflMGS 


q ~?p\  y  =  py.  v  =  ^v.  PP=P 

990  IF  FX=0  THEN  FX-B4 : R-l : BX-BX-1 
: IF  EX  =  Q  THEN  EX=7 
920  IF  FX  =  25  THEN  FX-1 : R=2 : EX-BX+1 
:  I F  EX-8  THEN  SX  =  i 
1020  IF  FV=ø  THEN  FY  =  24 : R  =  3 : EY=BY-1 

.  ir  nv  =  fs  tufm  nv=i3 


:  I F  BY  =  3  THEN  B Y  =  1 2 
1010  IF  FY=2S  THEN  FY-1 : R“4 : BY-BY+1 
:  I F  EY-13  THEN  BY-1 
1020  ER  =  FE  ^  EX , BY  1 
1030  IF  BR< 2  THEN  1130 
1040  ON  R  GOTO  1050,1370,1030.1110 
1050  IF  BR=3  OR  ER=S  OP  ER  =  5  THEM  11 
30 

1060  GOTO  1170 

1070  IF  BR=3  OR  BF  =  7  OR  BR=9  THEN  11 


OR  BF=7  OR  ER=B  THEN  11 


30 


10BØ  GOTO  1170 

'jf71pf7I  Tp  RR  =  p  DP 

‘is  å  1  u  i  \  >—  i  ■ 

30 


CP  ER  =  B  THEN  11 


OR  BR=5  GR  ER=7  THEN  11 


1100  GOTO  1170 

1110  IF  EP =2  OR  BR=5  OR  ER=7 
30 

1120  GOTO  1170 

1130  IF  RD= 1  THEN  1170 

1140  PR= INT  C  RO /RS* 100 5 

. TP  DP<UT  Turw  UTspe 

t  4  i  i  1^114  J-  J  i  J _ .  d  'i  4  4  jL  1  IV 

11  Qf?l  DD  r  MT  **  f  UpMP  r-DQp  upTpm 

J,  JL  kJ  1  1  V  X  ■  -J  J*  -m.dk  L»J  I  I  Lem  H  4_,  i,  V  k  -V  1  k  i  *  W  W  i  .4—  -mmJ  * 

ELAA  I’  ”HI  ”  C  ORSR  UEN5TRE  , 
SPACE  HN  C  GRAB  IH”; 

1 1EØ  FOR  A  =  1  TG  IØiFGR  F  =  0  TO 
: POKE  UU  +  3S , F ; NEXT  F , 2 
: POKE  UU+21 , 0: POKE  UU+32,0 
:GOTO  1220 

pD^rrfv  V  'I 

_L  _4_  HdV  W  i  V  di  kn  i 


15 


1 180 
1 1 20 


T  F 

i 

IF 


FE1 X , Y J 
ER<>4  AND 
BP<  >  2  THEN 


R<  2  THEM  ER  = 


1  f 

J- 


1200 

IF 

PD  =  0 

4  S  4  S 

OR 

P  P 

4*41  kpJ 

TUPM 

a  *  j 

ER= 

1210 

T  P 

A  > 

P  P  =  1 

4  S  4  S  4. 

OR 

RR=4 

Tur  M 

4  i  i  j _ > i  d  y 

ER= 

1220 

T  P 

Jr  J 

BP<  > 

i  iTt 

THEN 

1250 

1230 

T  TT 

x  i 

PP=  P 

*  ■-  *  i  i— 

GR 

4't  J  t  4i 

THEN 

ER= 

1240 

IF 

OOf  i 

Jl  S.  .4  S  _i_ 

no 

u  £  v 

4-4'.  ^ 

THEN 

qo= 

JkJ  J.  k 

1  J3C;i71 
l—  y./ 

T  P 

4.  J 

Ep<  > 

w  4  S  '  ■ 

U  T 

-%  4 

HEN  1 

290 

12EØ 

T  P 

.  j 

P  D  —  1 

Jk  V  4  S:  J. 

W  4  S 

po  -  i-) 

4  S  1  i  k_ 

TUCM 

X  4  h  L-l  J  4 

PP  - 

4— i  4  S 

13^ 

4.  U  i  ■*/ 

T  P 

4.  i 

DD  =  I3 

J. J  ■  sV 

n  d 

U_9  4  \ 

DpsU 

t  i  ril  .  J. 

TUPM 

4  j  hi  4--  J  J 

EP“ 

12BØ  GOSUB  1930:  PR  INT  BR$  C  BR ; 

J 

.  pn  =  Dn,  i  *  ri r  ,  v  v  ■  =  p 

«  4  S  k_rf  4  -i.  M  J.  >  4  4_«  s  >  V  i  i  J  i-J  1  V 

ipQffl  pp  r  nit  »'  r  unrir  roco  uf^  rpn  i 

Ju  1 _  k_v  i  1  :■  _k.  i  ‘J  iL  ■_  j  +  s-j  I  I  i_  ,  u  I  k  -_j  is  *  i  w  vj  i  \  _**  % 

pt  q  q  'i  "pn  11  r  r-  p  c  p  u^^TPF'  pp Af 

i  ir"  4^  I  ■  4  1  #  A  h  u1  k  ’^ia ,p  4a  li  li  aJ  L  ■  ^  ii  r  I  ■  “mjt  JL  Ji  ■  |  ijJ  i  -  ■  % 

CPOOI  i  ” 


UEMSTPE , SP^GE , 


i  PPT^lT’VUnriC  rpdp  yq  TOCpi 

X  W  Ibd/  V  Jl  4  V  V-  i  4  £  >  1  *  W  I  ■  W  |  Uh  1  S  is.  J  4-  'fc-J  kJ  1  V  i— -  w  _fc_.  ^ 

BLAA;  ”  INTCRQ/RS*100H  "CCRSR  UENSTR 
E  ,  5 PACE  ,  GRAA1 H  ”  I F  R0>0  THEN  RETO 
RN 

1310  GOTO  1730 
1320  00=0 

1330  J0  =  PEEKC  55320 ) 

1  -3UI7I  TF  jn=1  1  1  TUCM  q  =  C  D  .  PRT!  I  PM 


1350 

i  icn 


r  c 

X  å 


J0=12 


10=125  AN 


AND  HX<  7  T H E N~ 1 4 1 ø 

awn  uv>  i  tufm  i  uqct 

-S 


IF 

T  C 

4  i 


JQ-153  AND  HY< 12  IH 
JO-119  AND  HY> 1  THE 
00+1: IF  00<S  THEN  1 


1390  IF  J 
1320  00=0 


HEN  15 


TUF  M 

4  f  >  i—  :  "-m 


i  L+Tyn 

«  ril  V 


1410  X=HX+1 : Y“HY: FOR  A=i  TO  3 

.annip  iqam.ppTMT  i  riTTef  »iTOtu  np 

■  -H r1  I-  J  - /  SbuK1  Jetsr  S«>  W1  ■  i  .m  \  *.  4  ’r*  1.  dL-i  J_.-  ■  JL  m,  'j  S--J  4  S  teu  di  »  %_■>  J 

3  "i  11  q  j  ■ 


1420  IF  A< 3  THEN  Xiæ=’T1@0” 

1430  IF  A=3  THEN  X1$=”LNN” 

1443  IF  X=BX  ANE  Y=3Y  THEN  SX=SX~9 
: POKE  UU+l.SX 

1450  PRINT  BRSCFECX.  YH.i  :  "CCRSR  NED 


{  Y  V  "i  1  .  ” 

-  *  ^  t  *  -  -  4 


■  d. 


V  r  di  a 


RUS  ON  H ”X1S " C  RUS  OFF , GRAA1 H ” 

1450  NEXT  A 

1470  IF  X=SX  AND  Y=BY  THEN  BX=EX-1 

lupp  pFr'UY  uv-i  =  rrrY  vvrcfy  V1=r7i.uy  =  Y 

^4.  li*.  K-J  %*+■  i  J»  k  4?  +  f  \  m  I  fc  II.  w*  i  ^  /  S  4  Å  Æf  m  A  immm  .  /  V  ^  1  «  ■  S  k  /  /  \ 

:  RETURN 

Tuan  v=uv- i . v=uv . rnp  Tn  p 

_L  j.  ^  iL-t'  /  v  J  k  s  _e>  *  a  i  i  å  .  4  s_ j  1  v  i  r  St_/  j.  1 

: GOSUB  1220: PR  I  NT  LEFTSC’CCRSR  NE 


,  anqi  )P 


D3 H ” . A ) ; 

ø  IF  A=0  THEM  X 1 $= " L N N ” 


10  IF  A> 0  THEN  Xiæ=”NØ@ 


1520  IF  X=EX  AND 
: POKE  UU+J , SX 


Y=EY  THEN  SX=SX 


LJ  ,  1 ! ■:  I  L2 KHHt:  ,  KUi 

FF, ORSR  NED, ORSR  UE 
GRAA1 ) "ERS 1 FEC  X , Y  H H 
0  NEXT  A 


nNt 

l^s  !  'd 


xis”':rus 


55ø  IF  X=BX  AND  Y-BY  THEN  BX=BX+1 

F  F  r  u  Y  U  Y  '  i  =  F  F  f  y  y  .  f  f  ,  y  v  \  =  (71  .  U  Y  =  Y 


s  J-  H.  4.  W  A  S- 


i™  y=uy-  Y=Hv+i  -  rnp  rn  q 

Jl.  ul  ■'  V/  VS  I  Bl  ■'  \  ■  il  J  I  L  A  - d1  1  Si  4  >  _fc_  dL  W 

.  nnci  IP  i  apfT)  .  PO  T  ?  rm  r  *■  r 


:  PR  I  NT  LEFTSC MCCRSR  UE 


[Pn  ”  A  -f  . 

i-  S  Li  W  9  H,  I  I  #  4 

T  tr  TMi: 

i  4  ►  ►  -k^<  Am  4  4  Am 

rr  Tut 


T  U  p  M 

j-  4  4  4n>  •  ’i 


X1S- 


"  .  y 


J-  i  i  L-  r  J 


IP  ^  Y 

JU-  » 


n  i  ■ 


1530  IF  n-3  THEN  Xl$=  L" :  X25^  'TI 

i  tp  v  =  pv  A^.^n  y  =  nv  tupm  cv  =  cv-q 

JL.  W  i  d  /  ■S  i-J  VS  ■  J  J  1J  Jl  U  4  A.  4  k  4_r-  P  4  *W  9  P«i  4  vJ 

:P0KE  UU , SY  AND  255 
:  I F  S Y < 0  THEN  POKE  UU+16,0 
1610  PRINT  BRSIFECX, Y H ? ”CGRAA2, 

RUS  ON H ”X1£ ” CORSR  NED, 

rocp  nrMCTpr  "vpic  »  c  rpcp  kifh 

Lur  1  S  i  S  V  |  i  tw  A  Jl  S  A_-  ...  VS  4«  --A>  m  Lj  li.  \  k-V  Is  I  J  J..  AbV  4 

npQp  ijrMQTDt  >  Myp*t r  PU^  nrt  nppøi  v* 

S  d  N  S  r  —i1  jL  h  V  4  ■  I  S  ii-  — r  J.  4  l  4  ■  j  1  ’i.  L  ■  'ii  Ji  i  Sr  k  il*  k  -  J  j.  4  11  i— d  4  a  I  I  •  I  Jl 

1620  NEXT  A 

1630  IF  X=EX  AND  Y-BY  THEN  BY-EY-1 

iC4pi  FFr-uv  uy'i  =  FF("y  v'i-FFi'y  v>  =  pi  .  UV  =  V 

-4.  S—J  _i_  1LV  A  J— .  ■’fc  å  k  V  \  1  *  k  i  W  m  A—m  .i  VS  t  i  jr  ■  4  J—  ■*  V  \  4|  4  -  #  k  Jl  1 


N  3> 


1650  X-HX : Y-HY-1 : FOR  A=0  TO  2 

.  Rnqi  ic  iqqp.optMT  i  rcricr  "rrocp  HØ 

m.  h 4  k 9  ■ •  * #  Jl f  di-  s— J  k J.  *fe_V  *  j.  I  li  A.  !  S  J^  J &  J 1  JL  ■'Jr'  ir  S d  1  S  k 9  i  V  Ji  i  itJ 

JRE3:> 

1650  IF  A-0  THEN  X1$=”L”:X2S -”H” 

1570  IF  tvip.i  ynssWM«.  yp«=''raH 


T  P 


1 B90 


IF 


ft>r?i  tupm  yi4=!Ti».  y 

!  i  '  -M--*-  J.  d  4  .fc_^  J  -d  V  S  jy  rJJ  |  S  m  /  S. 

V  =  p>  Y  A  f  - f  n  V  =  P  v  tupm 

. •  S  m  S  I  ■  I  *  4  J-J  4  di  4  4ib-  -I  J 

UU , SY  AND  255 
Y>  255  THEN  POKE  UU 


;y  sCVdQ 


1  q  1 


22  -  TAST 


SAMES 


1E90  PRINT” CGRAA2, RUS  DN ) ”X1S ” C CRSR 
NED , CRSR  UEHSTRE ) ”XES”CCRSR  NED, 
npcp  UEN5TRE ) ”X2$ ” CCRSR  DPR 
GR API ) "ERBC  FE  CX ,  Y)  ) 

1700  NEXT  P 

1710  IF  X=5X  PND  Y = E V  THEN  BY-BY-*- 1 


1710  IF  X=5X  PND  Y-BY  THEN  BY-SY+1 
17RØ  FECHX . HY)=FECX , Y j : FE  C  X , Y) =0 : HY 
: RETURN 

1730  PGKE  UU+21 , 0 : X=4 : Y=5 

:XS=”  C  ERSR  NED  ,  CRSR  UENSTRE3 , 
SPACE3 , CRSR  NED, CRSR  UENSTRE3 , 
5FACE3 , CRSR  0P2) ” : GDSUB  ISSØ 
: PRINT  XS; : GGSUB  1910 
1740  PRINT  XS;  .-GOSUS  1910 
1750  X=3 :  FQR  Y=*5  TG  9:  GGSUB  1S90 
: PR I  NT  XS;:GOSUE  1S10:NEXT  Y 
17SØ  X=4: Y=B: EGSUE  1990: PRINT  XS 


i  i  v  jl  r  'j 


.  n 


DSUE  1910 


1770  X = 5 : F G R  Y=E  TG  S  STEP 


: GDSUB  1990 : PRINT  XS ; : EGSUE  1910 
:  NEXT  Y 

1780  X-4:Y=5: GGSUB  1990: PRINT  XS 
rGCSUE  1910 

1790  X“2:FGR  Y-4  TG  9: EGSUE  1990 
■  : PRINT  XS: GGSUB  1310: NEXT  Y 
1800  Y=9 : FQR  X=3  TG  5 : GDSUB  1990 
:PRINT  X$ : GDSUE  1510:NEXT  X 
1810  X=S : FOR  Y=9  TG  4  STEP-1 

: GGSUB  ISSØ: PRINT  XS : GGSUB  1910 


: NEXT  Y 

1883  Y  =  4 : FOR  X=5  TG  3  STEP-1 

: GDSUE  19SØ: PRINT  XS : GGSUB  1910 


: NEXT  X 

1833  PR  I  NT” C  HOME 


rpcp  i 

Uh  4  \  --»i  i  \  m 


OTTI 


5R5R  NEDE? V3U  HfiUE  DONE” 


1  QU,^ 

iU  Jr  W 


1853 


pp  t  MT  ”  f  rPpP  unrppi 

I  i  \  J-  1  1  X  r*  Uh  4  %  - I  i  '*  J  k-  W  d  \  L-t  J- 

?£E  NED  J  THE  I  f1P55S  I 

PRINT”tCRSR  HØJRE1 


2 n CRSR  NEDE, 


CD^rru ^ v 

■  ri  I  I  *-■->  ri.  I 


18GØ  PR  I  NT ” C GRSR  HØJRE11, 


CRSR  NED) THE  MASTER 


PUZ2LER 


1 E70  PRINT” CCRSR  HØJRE11.CRSR 
SPACE3 )K I CK  EUTTDN ” 


1880  PRINT” CCRSR  HØJRE! 1 , CRSR  NED, 
SPACE2 )TG  PLAY  AGA I N ” 

1893  JQ=PEEKC5G320) : IF  JG<>111  THEN 
1990 

1900  GDTD  130 

1910  FGR  P-l  TO  10 : NEXT : RETURN 


1983 

1  Q^fT) 

j-  — j  w 


PRINT” CHOME, CRSR  NEDE)”; 

FOR  A  =  i  TD  21 : PR  I  NT” C CRSR 


HØJRE 


2 , 5PACE36  )  ”  :  NEXT  P 
1940  PRINT” CBLAA, HOME, CRSR  NED7 ) ” 
1950  PR  I NT” C  RUS  ON, CRSR  HØJREB) MG 

BM I HSnSSAAHØ I  MA9n9@f1l?  I  ” 

1860  PRINT ” C RUS  GN.CRSR  HØJREB ) ML 
ØnFGØIINAAAØABMAØMNAMNG  ” 

1970  PR  I  NT ” C  RUS  QN , CRSR  HØJREB )MN 


ØMAÅØMNNAAFØGFØGMNNMF I ” 


*  'l 


1980  PRINT ” CCRSR  NED3 , 

CRSR  HØJREB) PRESS  EUTTDN  TG  PLAY 
AGA IN !  C  GRAA1 ) ” : GOTO  18SØ 
1880  PRINT ” C HDflE )  "  ; 

8000  PRINT  LEFTSC “CCRSR  NED 37) ” , 

1  '!  . 

f  **  —  1  /  J 

8010  PRINT  LEFTSC "CCRSR  HØJRE37 ) ” , 


7  I 


Y*3-l ) ; : RETURN 

8380  SXsiEX*24+FX  +  39:  SY=BY*24  +  FY  +  1 3 
8030  IF  SY<255  THEN  PGKE  UU-^16,0 
8043  IF  SY>255  THEN  PGKE  UU+16,1 
: SY-SY-25E 

8050  PGKE  UU  +  1",  SX :  PGKE  UU,SY:RETURN 
20EØ  DATA  48, 180,858,258, 180,48 
2073  DATA  LNN , MSB , MØS , LAN , MAG , MAG 
2080  DATA  LNN. AAA. MØG. LAN. AAA. MAS 


49, 120,252,252 , 120,48 

lnn  ,  riøø ,  riøø ,  lan  ,  riAø ,  maø 

LNN , AAA , MØG , LAN . AAA , MAØ 
LAB, MIA, HØG, CAN, AHØ, HØG 
LNN, MEA, HAD, LNN. AFØ, EAØ 
LAE , AJA , EAØ , CAN , AKA , MAD 
2S5 , 255 , 855 , 255 , 855 , 255 


,  2040 

0,0, 0,0, 0,0, 0,0,0 


2090  DATA  LAE, MIA , MØØ. CAN, AHØ, MØØ 
2100  DATA  LNN, MEA, HAD, LNN. AFØ, EAØ 
8110  DATA  LAE, AJA, EAØ, CAN, AKA, MAD 
2180  DATA  255,255,255,255,855,255, 
255,255,2040 

2130  DATA  0, G, 0. 0, 3, 0, 0, G, 0 
2140  DATA  0, 255, 855, 255, 187, 63, 31 , 15 
1031 

8150  DATA  G, 127, 127, 127, 12E, 124, 12ø, 
112, 8E3 

21GØ  DATA  15,31,53,127,855,255,255, 
255  1255 

2170  DATA  112, 12ø, 124, 12E, 127, 127, 
127, 127,550 

2100  DATA  255,127,53,31,15,7,3,1-4502 

2130  DATA  255,254.252.248,240,824, 


4,252,248,240,224, 


,  128, 17 


2200  DATA  1,3,7, 15,31, B3 , 127 , 255 , 502 


spin 

_  U--_  ^  Inri  i  ■  -4  (-  ■ 


8 , 135 ,88*1 ,840 ,848 ,858, 


4, 855, 17 


22S  IDE  .  54 , 38 , 18,6,4,2  255 


rta-rfa  i  =?  u  p  ]  c  pu  i  pp 

Lb—  I  -  -s__J  1 ÉmJ  J_  I-  (  m  Imma-  ]  +.  j;  W  ig  Jl-  f  f  *  1—  |  * r  -4-  -r*—  i—  ‘ *  J ■— *  ’ ■■ 


?\OTCi  (7i  1  pP  1  PP  1 

■ -  —  4lW  ■  3  -w  -  I  1U^  j  -U,  Imm,  *  f  -JL  % - -  /  -f  -4m 


P’ 7 


1  1^  1 
■f  **  ■  h*“  *  *  ■  ^ 


12"7.  S? 


2250  127,127,127,137,127,127, 

127, 127, 1016 

2250  D6T£  0 , 255 , 255 , 255 , 25S , 255 , 2E 

i  7qc 


pcc: 


1  3^7  DCC  DCC  pczc  pc;c  pcc; 

I I i.-  «_J  -  ■  X  -  jJb.  -feH  b’  rg|.  s— ■■  W  f  >4  «  wd  ^  W.  ||  4 r  J-  !|  ^  j| 


2280  DATA  120,169,51,133,1,162,0,139, 


2290  DATA  0.2 


,  157,0,200, 199,0, 


* 


971 

2330  DA 


1C7  rft 


,  189, 0,210,' 157, 3, 


2313  DATA  210,189,0,211,157,0,811 
185 , 1167 

2320  DATA  0,182,157,0,212,232,208 

3PU  1 ssu 

EU-  L—  ^  T  X  U  U  X 

2330  DATA  169.55,133,1,88,95,0,0, 


42 


TAST- 


Gfities 


i 


Din  Spectrum  er  blevet  forvandlet 


størrelse  racerbil,  derdrønerrundt 
ude  på  banen.  Selv  sidder  du  oppe  i 
en  helikopter  og  ser  derfor  hele  ba¬ 
nen  fra  fugleperspektiv. 

Hold  din  racerbil  kørende  så  langt 
som  muligt  Jo  længere,  desto  fle¬ 
re  points.  Bilen  styres  med  følgen¬ 
de  taster; 

1  -  venstre,  2  -  højre,  0-  op.  0-  ned. 
God  fornøjelse.  Og  prøv  nu  at  lade 
være  med  at  smadre  altfor  mange 
biler,  det  giver  sådan  et  frygteligt 
rod. 

Mikkel  Paulsen 


s 


/-  s 
// 


kis 

REM 

REM 

REM 

REM 


5  LET  h i =0  I 

i®  rem  nnnunuuuuvuunnuu  1 

SØ  REM  tt  RACERKØRER  tt  I 

30  REM  tt  C0pyri9t  ©  S  1 

4.0  REM  ttMiMtel  Pauisentt  i 

50  REM  8888888888888888 

50  GO  SUB  9000 
70  GO  SUB  8000 
30  LET  tidsø:  LET  0(6  9  »0 
90  PRINT  fiT  0,0; 

tt  tt  ti  tt  tt  tt  tt  tf  tt  tt  tt  tt  tt  tt  tt  8  tt  tt  tt  tt  tt  tt  tt  tt  ts  tt  tt  tt  tt  t: 

88  88888  '  tt 

8  888 

8  tt  888 

8  8888  8888888888 


P  ✓ 
/  / 


uuuu 

88888 

unu 

888 

uuu 

8 

uu 

8888 

uu 

88888  8 

uu 

8888888888 

uu 

8888888 

uuu 

888888 

uuuun 

888888 

88888888888888 


88" 

100  PRINT 
"8888  8888888 


8888 

888 

88 

88 

88 

888 

8888 


88888 

8888888  8888 
888888888  88 

88888888888  8  88 

8888888888888  tt88 

8888888888888  8888 

888888888888  8888 

888888888888888888 


8888  888888888888888888  8 
88888  88 
888888  888 
8888888  8888 
88888888888888888888888888888888 
8" 

110  LET  p C h  = 19 ;  LET  pr  1=7 
120  PRINT  INUER3E  1;  INK  1 ; RT  2 
0,29, "HI"; RT  2 1 , 31 -LEN  STR*  hi; 
INUERSE  l;  INK  1;  h i 
130  PRINT  RT  p  rh , p  r  L ;  INK  2; "fc" 
135  BEEP  1,12:  BEEP  .15,7:  BEEP 
.15,12:  BEEP  .15,16:  BEEP  .15,1 
2:  BEEP  .15,16:  BEEP  1.5,19 
140  PRUSE  ø 
150  LET  90  to =160 
160  LET  a*=INKEY* 

170  PRINT  RT  20,0;  INUERSE  1;  I 
NK  l; "SCORE"; RT  21, 5 -LEN  5TR*  ti 
d;  INK  l;  INUBR4E  l;tid 
130  LET  tid=tid+l 
190  IF  a*  =  "l"'THEN  CO  TO  29ø 

200  IF  a*  =  "2’*  THEN  GO  TO  340 

210  IF  a$="0"  THEN  GO  TO  240 

220  IF  a|="0"  THEN  GO  TO  390 


V 


24  -  TAST 


250  PRINT  AT  p  r  h  ,  P  r  l ;  INK  2;  "J," 

;  AT  p  rh  +1 , pr  L ; "  " 

260  phusE  pause 

270  BEEP  .03,-20  I 

280  GO  TO  160 

290  LET  prl=prl-l:  LET  goto  =290 
:  IF  SCREEN  $  (prh.pf U *"#"  THEN 
GO  TO  løøø 

300  PRINT  AT  prh,prL;  INK  2; "H” 

; AT  prh ,pr  i+l; "  " 

31ø  PRUSE  pause 
320  BEEP  .03,-20 
330  GO  TO  160 

34-0  LET  pr  l apr  l+l:  LET  goto  =340 
:  IF  SCREEN*  (prh  ,pr  U  THEN 

GO  TO  1000 

35ø  PRINT  RT  prh,  pr  L;  INK  2;  ”fc" 

, RT  prh,pri-l;"  " 

36ø  PRUSE  pause 
37ø  BEEP  .03,-20 
330  GO  TO  160 

390  LET  prh=prh+l:  LET  goto =390 
:  IF  SCREEN*  (p rh , p r U =" tt"  THEN 
GO  TO  løøø 

400  PRINT  RT  p r h  , p r  l  J  INK  2;  "T‘ 

J  RT  p  rh -1 ,pr  t J ”  - 
410  PRUSE  pause 
420  BEEP  .03,-20 
430  GO  TO  160 

1000  PRINT  RT  prh.pn;  FLRSH  1; 

INK  6;  PRPER  2; 

lølø  FOR  a=20  TO  -2ø  STEP  -1:  BE 
EP  . 03 , a :  NEXT  a 

1015  PRINT  RT  21,9;  INUERSE  1;"N 
YT  SPIL-TRST" 

1020  PRINT  RT  3,6;  PRPER  4; "DU  K 
ØRTE  GALT ! ! " ; RT  10,11;  PAPER  6;  1 

FLASH  1; "GAME  OUER" 

1030  IF  t i d  >h i  THEN  LET  hi=tid-l 
:  PRINT  RT  15.9;  INK  1;  INUERSE 
1 ; "NY  HIGH  SCORE":  PRINT  RT  20,2 
9;  INUERSE  1;  INK  1;"HI";AT  21,3 
1-LEN  STR*  hi;  INK  1;  INUERSE  1, 
h  i 

1035  PRUSE  2øø 

1040  PRUSE  0:  GO  TO  70 

Søøø  BORDER  7:  PRPER  7:  INK  ø:  C 

LS 

8010  PRINT  PRPER  5; "  R 

Ri'ERKøRFR 

0015  BEEP  .1,7:  PRUSE  5:  BEEP  .1 
,7:  BEEP  1,12 

8016  PRUSE  10:  BEEP  .1,7:  BEEP  . 
1,12:  BEEP  .1,7:  BEEP  .1,12:  BEE 
P  1,16 

3020  PRINT  ''"I  dette  Spectrum  s 
Pil  skal  du  prøve  at  køre  bane 
n  rundt  i  din  Super -Racer  saa  hu 
rtigt  som  mg-  ligt.  Du  kan  køre 
hurtigt  eller  langsomt,  men  pas 
paa«  Kører  du  hurtigt,  er  bilen 
ikke  let  at  styre." 

8ø3ø  PRINT  ''"Hvilken  hastighed 
i l-lø)?  lø  er  langsomst,  1 

er  hurtigst." 

3ø4ø  input  pause:  IF  pause <1  OR 
pause >lø  THEN  GO  TO  Sø4ø 
3050  RETURN 

9000  FOR  a=USP.  "a"  TO  USR  "d "  +7 
9010  READ  user:  POKE  a,user 
9ø2ø  NEXT  a 

9ø3ø  DRTR  BIN  øølØlølø.BIN  00111 
110, BIN  øølølølø, BIN  øøøøløøø, BI 
N  øøøllløø , BIN  øløllløl, BIN  ølil 
1111, BIN  øløllløl 

9040  DRTR  BIN  00000111,BIN  11100 
010, BIN  øløøllll, 255, BIN  0100111 
1 , BIN  llløøølø, BIN  00øøølll,ø 
9ø5ø  DRTR  0 , BIN  llløøøøø.BIN  010 
øølll, BIN  lllløølø, 255, BIN  11110 
010, BIN  øløøølll, BIN  11100000 
9060  DRTR  BIN  10111010.BIN  11111 
110. BIN  10111010, BIN  øøllløøø, BI 
N  øøøløøøø, BIN  øløløløø, BIN  0111 

1100 , BIN  01019 100 
9070  RETURN 


TAST  -  25 


CHRLLENGE 


For  mange  af  de  ]  idt  yngre  dataen¬ 
tusiaster  kan  sproget  t  starten 
godt  være  en  alvorlig  forståelses- 
mæssig  barriere.  Derfor  kommer 
programmet  "Dan  Basic"  som  en 
åbenbaring*  for  med  dette  pro¬ 
gram  kan  du  snakke  rigtig  dansk 
med  din  C 64.  "Dan  Basic"  oversæt¬ 
ter  ved  hjælp  af  en  MC  rutine  alle 
dine  engelske  kommandoer  og 
fejlmeldinger  om  til  let  forståelige 
danske.  Fra  start  ligger  MC  en  i  da¬ 
ta-linier*  men  når  programmet  kø¬ 
res*  laver  det  et  nyt.  der  kan  saves 
og  runnes*  Det  nye  program  er  af 
typen  1987  sys  2061 .  Der  er  en 
ting*  der  ikke  erfordansket  nem¬ 
lig  load /save  proceduren*  Forkor¬ 
telser  af  kommandonavne  følger 
samme  mønstersom  hidtil  set. 


l 

* 


hent 


close  -  luk 

cir  =  nul 

cmd  -  text 

cont  —  igen 

data  —  data 

def  —  def 

fn  —  fn 

dim  -  dim 

end  -  slut 

for  -  fra 

to  —til 

step  —  step 

next  =  næste 

get  —  tag 

gosub  —  hop 

goto  -  gå 

if  —  hvis 

then  —  så 

input  -  input 

let  -=  lad 

list  —  liste 

load  —  hent 

new  =  ny 

on  —  on 

open  —  åben 

poke  —  put 

print  =  skriv 

read  —  læs 

rem  —  rem 

restore  -  nulstil 

return  =  tilbage 

run  -  kOr  (k  nul  r) 

save  =  gem 

stop  —  stop 

sys  =mkOr(MKnul 

R  -  maskinkode 
kør) 

ve  rily  —  veri 

wait  -  vent 

Alle  funktioner  er  de  samme  und¬ 
tagen: 

peek  =  kode 

fre  —  fri 

Thomas  Knudsen 


on 

åben 

put 

skriv 

læs 

rem 

nulstil 


REM 


c  r 
\  * 


1387  BY  THOMAS  KNUDSEN 


REM  NAAR  DETTE  PR2GRAN  RU! 
DET 

REN  LAUE  ET  NYT  PRDGRAN. 


UIL 


SDH  DU 
REN  KAN 


BLDT 

GENNE  NED  SAUE  . 


DATA  11,3, 135, 


263,44, 160 ,6,133,35, 132.36,133, 
174, 160, 11 


8  DATA  133,33,132,31,163,130,160,135, 


1  "3P  oo  i  qp  pq  qp  lpi  i  cq  ?p  1 

^  -***■>«„**  j  U "i  *  f  ,  -L  ^  j  -*-  *^  *—  j  i* 

1  pq  1  ■3*3 

X  U*  W  t  *  4,  ^wJ 


1  1 


zzn  up  up 

t— t  , 


S  DATA  35,133,90,133,88,163,160,133, 

qc  1CQ  1  PC  1  PP  Q1  1  OO  DC  03  1Q1 

.163, 153,31 

10  DATA  133,35,163,192,133,96,163,30, 

iqq  qpi  i  ca  l  pc  no  Qi  icq  i  -pc  nq 

,  ■*.  —  ,  O,  ^  ^  y  — '  J.  T  „  -4.  —  —i '  ) 

8B , 163 

11  DATA  163,133,83,32,131,153,76,30, 


26  -  TAST 


CHRLLENGE 


195 , B3 , 76 , 85 ,  212 , 70 , 82 , 193 , 78 , 55 , 
53,83,84 

18  DATA  137 ,58,55, B4 , 183,73, 78 , 80 , 85 
84, 183,73,78,80,85,812,68,73,805, 
76,85,68 

13  DATA  211.76,55.186,71,65.133.75. 


3 


14 


15 


DATA  211,76,55,186,71,65,133,75, 
48,810,72,86,73,211,78,85,78,63, 
B4, 73,204,78 

DATA  73,808,84,73,76,66,65,71 ,187, 
98,58, 205 ,63,84,73, 208 , 73 , 205 , 86 , 
68,78,212 

DATA  72.68,78, 212 ,71,63, 205 ,85,58, 


82,201 , 68, 63, 13B, 80, 65, 212 , 83, 75, 


16 


17 


16 


18 


20 


DATA  163 ,63,75, 98 , 73 , £14 , 73,71 , 69, 
206,76 , 73, 83 , 84 , 1 87 , 78 , 65 , 204 , B4 , 

68,88,212 

DATA  77,75,48,210,65,85,66,63,206, 
76,85, 203,84 , 55, 133,76 , 217,84,85, 
66, 168, 84 

DATA  73,204,70,208,83,80,67, 168, 
83,65, 183, 78, 78, 212, 83, 84, 68, 2øB, 
171 , 173,173 

DATA  175,222,65,78, 138,79,213, 133, 
189, IBS, B3, 71 ,205, 73,78,212,65,58, 
211 , B5, 83 

DATA  210,70,62,201 ,80,79,211,83, 

91,210,82,78,136,76,76,199,68,88, 

208.67.78 


J  " 


DATA  211,83,73,206,84,65,206,55, 
84,206,75,73,66, 197,76,69,206,83, 
84,92, 184,36 

DATA  65,204,65,83.195,67,72,82, 
164, 76, 69, 70, 84, 164, B2, 73, 71 , 72, 
04, 154,77,73 

DATA  68,164,71, 207,0,32,70,79,82, 


24  DATA  32,93,65,68, 


E  70  73 


73 , 75 , 
76,32, 
DATA  2 


75,58,32,93,65,53,206 


76  • 

t  ^  0  1  ^ 

5,70, 


39, 75,32,70, 85, 7B, 68, 58, 212 


69.78, 

73.78, 
DATA  1 


72,69,68,32,73,75,75 


S  ' 


71  70  1  Q~7  'T'q  7C 


i  " 


79,80, 


,84,32.70,73, 204 ,73,75,75 


1  ' 


DATA  85,84,90, 95 


70  7q  '7!=  70  OO 

^  J  —  1  *  w  3  -  “  — **  1 


5,84,32,70,7 

□o  70  CQ  DU 

h_  1  fc  t  ^  /  -h  rf  ^  1  -  ø  -  -*•  ^  *■  —  JL  4 


p  -ry 
s-  ,  '  f  i 


30 


DATA  53,210,70, 

32,58,69,85, 73, 

77.69,210 

DATA  76,55, 59, E 

69,78,32,32,70, 

65,215,84 

DATA  73,75, 56, E 

68,59,76,32,69, 

65,84,55,32 


qu 

7  “  *  T 


67,69,32, 78 , 86 


014  oa  ap  qq  cr 

4  \  y  •—*  I -  |  |  4 


183,83,83,78.84, 


5,71,69,32,32 

78,32,72,79,2 


31 


DATA  77,65,78,71,69, 204 ,85,68,68, 
78,70,79,82,32,79,77,82,65,65,68, 
69.212.78 


32  DATA  66,69,82,45,75,48,134,77,69, 
77,79, 82 , 89,32,77,55,78,71,69, 204 , 
76,73,78 

33  DATA  73,59,32,70,73,78,68,69,33, 
32,73,75,75,197,85,88,69,78,70,73, 


34  DATA  E8.73 


77,69,84, 
83,73,79 
DATA  78.E 


3 , 205 .55,82,32, 6B ,73,77, 
32,70,48,210,68,73,86,73, 


69,58,32,78,95,204, 


q  pq  7B  BS  77 

é  -W!  s  11  i  *  ji  — J iL— *  1  J 


,  32 , 80 , B2 , 78 , 71 


DATA  70,78,82,75.58,82,34,32,32, 
84,83,00,197,83,84,82,69,78,71,32, 
70.79.82. 32 


3 


DATA  75,65,78, 199,73,47,79,32,32, 

68,65,84,153,70,79,92,77,99,75,32, 

70,79,82 


38 


DATA  32,75,79,77,80,78,69,75,211, 
75,65,79,32,73,75,75,59,32,32,73, 
71 . 89.206 


39 


DATA  95,58,69,70,73,46,32, 32 , 70 , 

85 , 78 ,75,84,73, 79 , 206, 95,69, B2,73, 


40 


70,217,72 

DATA  69 ,78,212, 158 , 161 , 172, 161, 
191,161,184, 151,208, 161,226, 161 , 
240, 161 , 255 


41  DATA  161,16,162,37,162.53,152,58, 
152,79,182,90,152,108,162,114.152, 


1  ^  1 
-L  L_  t  j  «-L 


42  DATA  144 


7, 152, 170, 152,186, 


,78,71,63,32,70,73,204,70,  43 


162,200,162,213.162,228,162,237 

162, , 163, 14 

DATA  163 . 30 . 153 . 36 . 163 . 131 . 1E3 . 


44 


46 


DATA  163,30, 153,36, 163, 131 , 153, 13, 

pq  7 q  i  o  PP  qo  717*  qa  714  7q  14. C 

'  1  .  1  u.  w  j  1  — 11  1  — ' ' —  1  ^  t  — 1  j  *  J  j  , 

32,^3,32,32 

DATA, 13,10,42,75,75,55,32,42,13, 
10, ,13,10,66,82,85,58.84,0,162, , 
142,32,208 

DATA  142,33,208, 189,62, 195,201, 

255 , 240 ,79,32,210, 255 , 232 ,76,38, 


1  1 


1  14-7  q  i  "7 


46 


DATA  42,42, 42 ,42,32,58,65,78,32, 
66,65,63,73,67,32,40.67,41,32,43, 
57 , 56 , 55 , 32 


UP 

„ii  ; 


DATA  56 , 99 , 32 , 54,72, 79,  77 , 65 ,93, 


P  7 q  PP  up  14 p  UP  >4  P  1  7  p q  pq  qq 

*—  1  -  “1  ■*“  *—  5  J-  k_  j  *■  -4—  m  i  U-.  ^  t—  |  j.  j  4..  J  *  k«j  %  J  *  i^-i  -J  j 


.57,49 


48  DATA 


1*  ' 


t  ^  1 


2,71,69, 


U  C 


p-j  nu  nn  qp  qu  in  pqi; 

^  '  t  ’-“r  4  t  *— *  w  il  4  *  Ji  ^  »jL.  ■ — ■■  i—.  - — -  ■*. 

159,54, 133, 1 

DATA  56 : REH  *  *  END  OF  DAI 


1111 


*  4 


n  ty  cpD  ^  -  p  ^  1.4  a 

J1  ‘É _ /  i  >i_U  *  %  1  I  1 - *fc_r*  m.  -  J  J-  ■*, 


.  p-r-j-p  .  r,;^-VT  ,  T  L"  r- 

■  W  Lj  .  w, 

T’T^ta  trtr  m  !t  ,  pf,»n 

riL  4m^-  -  -  I  1  a.  m—m  ui  i>- ■.  «  «1T  P  'i 


599: HEAD  E : POKE  A. 
::<>885I2  THEN  FRIN 


-1  *' 


7U  . 


POKE  46,11 


TAST  -  27 


CHflLLENGE 


Et  rigtigt  godt  lE]le  "tool"t  der  kan 
gøre  det  nemmere  for  dig  at  bruge 
computeren  som  tegneredskab. 
Det  er  "Buer"  i  en  nøddeskal.  Tast 
programmet  ind  på  din  Enterprise 
og  du  vi!  være  i  stand  tif  at  tegne 
en  bue  fra  et  punkt  ti!  et  andet 
uden  at  skulle  fodre  maskinen 
med  masser  af  indviklede  pro¬ 
gramlinier,  For  at  tegne  en  bue, 
skal  du  bare  fortælle  programmet 
buens  maksimalhøjde  samt  be¬ 
gyndelses-  og  ende-punktet.  Det¬ 
te  gøres  ved  kommandoen: 

CALL  BUE  (SX,SY,SLX,SLY,H) 
(SX,SY)  er  buens  begyndelses¬ 
punkt  {$LX,SLY)  er  buens  ende- 
punkt.  H  er  buens  maksimalhøjde. 
Hvis  buen  ikke  tøn  være  på  skær¬ 
men,  så  nøjes  programmet  bare 
med  at  tegne  den  deh  der  er  plads 
til*  Efter  selve  bueprogrammet  - 
DEF-blokken  - ,  er  der  givet  et  sim¬ 
pelt  eksempel  på  udnyttelse  af 
"BuerT 

Henrik  Jensen 


100  D EF  BUE  <  SX , SY  f  SLX  P  SL  Y *  H  > 

110  OPTION  ANGLE  DEGREES 

120  LET  Z»SLX-SX:LET  V-SLY-SYSLET  MX«<SX+SLX>/2!LET  MY* (SY+SLY) /2I LET  A-(SQR 
(Z-2+V-2) ) /2 

130  IF  Z-0  THEN  GOTO  210 

140  LET  VI-ATNIV/Z) :LET  AX*COS ( VI > : LET  AY-SIN<VI) 

130  FOR  T*0  TO  180  STEP  lO 

160  LET  D»A*COS(T) : LET  J=H*SIN CT) : LET  P1»D*AX-J*AY+MX: LET  P2-D#AY+ J*AX+MT! 

LET  E*ROUNDtPl, 1) ILET  L-ROUND <P2, 1  i 

IF  E<Q  OR  E > 1 279  OR  L<0  OR  L>719  THEN  SET  BEAM  OFFlGOTO  190 

PLOT  PI , P2f 
NEXT 
GOTO  260 

FOR  T“-90  TO  90  STEP  10 

LET  P1«H*C0S<T>+MX:LET  P2-A#SIN(T) +MYILET  E-R0UND<P1, 1) :LET  L*RQUND(P2 

IF  E<0  OR  E>1279  OR  L<0  OR  L>719  THEN  SET  BEAM  OFF:GOTO  230 

PLOT  Fl,P2l 
NEXT 

SET  BEAM  OFF 

270  END  DEF  r 


170 

180 

190 

200 

210 

220 

»D 

230 

240 

230 

260 


28 -TAST 


CHRLLENGS 

2  S  O  !  ************************  ■ 

290  !**DETTÉ  ER  ET  EKSEMPELS ! 

300  !  ***##^**###**#**^*#*** ! 

310  GRAPHICS  4 

320  SET  #101: PALETTE  0 , 255 , RED , YELLOW 
330  CALL  BUE (440, 523, 880, 523, 100) 

340  CALL  BUE (880,523, 880, 123, 100) 

350  CALL  BUE (8Q0, 123, 440, 123, -100) 

360  CALL  BUE (440, 123,440,523, -100) 

370  CALL  BUE (440, 523, 880, 123, 100) 

380  CALL  BUE (440, 123, 880, 523, 100) 

390  ?  ^*^***###**#*#*######****** i 

400  !**DETTE  ER  BARE  LIDT  PYNT**! 

410  i  ***************************  f 

420  SET  INK  2: PLOT  600, 523 , PAINT : PLOT  600 , 1 23 , PAINT : SET  INK  3: PLOT  440, 300, PAT 
NT : PLOT  880, 300, PAINT 
430  RANDOM! ZE 
440  DO 

450  SET  #101 : PALETTE  0,0,1 NT ( RND*256 ) , INT ( RND*256 ) 

460  WAIT  1 

470  LOOP  UNTIL  INKEY*<>"- 


Her  er  et  godt  mastermind  til 
BBC  en.  Det  følger  de  rigtige  reg¬ 
ler  til  punkt  og  prikke,  hvor  der  er 
seks  farver,  og  det  er  muligt  at  an¬ 
bringe  samme  farver  i  samme  ko¬ 
de  mere  end  een  gang.  Det  er  dog 
ikke  muligt  at  bruge  “tomme  hul¬ 
ler',  dvs*  at  undlade  at  sætte  no¬ 
gen  brikker  i  nogle  af  hullerne*  Gra¬ 
fikken  er  ikke  i  topklasse,  men  det 
skyldes,  at  der  er  benyttet  "MODE 
2\  da  man  skal  bruge  mindst  otte 
farven  er  det  jo  en  nødvendighed* 
God  fornøjelse. 


MODE* 

*KEYO 
*KEY1 
*KEY2 
*KEY3 
*KEY4 
*KEY5 
*KEY8 
»KEY? 

DIMkode (4 ) 

REPEAT 

PROCinit 
FRQCspi 1  leplade 
PROCgaet 

PROCslut 
UNTIL  gameover 
MODE  7 
END 


DI Mk (4) : DIMgaet (4)iDIMg(4) 


TAST  -  29 


GAMES 


190  DEFPROCinit 
200  i  kkef  1  er eg ae t “FALSE 
210  gameover =FALSE 
220  r i gt i gkode— FALSE 
230  VDU  5 

240  VDU  29,224; 100; 

250  VDU  19,5,7,0,0,0 
260  VDU  19,0,6,0,0,0 
270  VDU  19,6,0,0,0, 0 
2 BO  VDU  19, 7,  5,' 0,0,0 
290  VZ-BO 

300  FUR  test™  1  TO  4:  kode  (tesi; )  =RND  < 6)  :  NEXT 
310  ENDPROC 

320  DEFPROCspi  11  oplade? 

330  GCOLO, 129 

340  CLG 

350  GCOL  0,4 

360  MOVE  192, O: DR AN  O, O: PLOT  85, 192, 4 1 6: PLOT  85,0,416 
370  GCUL  0,0 

380  MOVE  O, 512; PLOT  85, 832, 41 6: PLOT  85,832,512 
390  GCOL  0,4 

400  MOVE  O  ,'576:  DR AW  O,  512:  PLOT  85, 832, 576;  PLOT  85,832,512 
410  GCOL  0,7 

420  MOVE  1 92, 416: DRAW  832, 4 16: PLOT  85, 192, O i  PLOT  85,832,0 

430  GCOLO, 3 

440  RESTORE 

450  MOVE  0,0 

460  REPEAT 

470  READ  x7,,y% 

4 BO  DRAW  x7,,  y 7. 

490  UNTIL  yiZ=yX 
500  GCOL  0,2 
510  MOVE  64,560 
520  PR  I NT "MASTER-MIND" 

530  MOVE  32,400 
540  PRINT"  10'* 

550  MOVE  64, 368: PR I NT" 9 MOVE  64, 336: PRINT "3": MOVE  64 , 304 ; PR  I  NT" 7 " 3 MOVE 
t  PR  I  NT**  6"  s  MOVE  64 , 240:  PRINT  "5"  :  MOVE  64 , 208;  PRINT11 4** 

560  MOVE  64, 176; PRINT "3": MOVE  64, 1 44 : PRINT"2 " : MOVE  64, 1 12: PRINT" 1 " 

570  MOVE  224, 48; PRINT "GÅET" 

580  GCOL O, 1 : MOVE  64 , 480; PRINT”?" 

590  GCOLO,  6:M0VE-224,  9 1 5: PRINT "f 0=R0D" ?  *'f  1=GR0N"  5  “f 2-GUL“J  "f  3=BLAA"J  " -f  4 
"f 5=50RT  "  ;  MQVE400, 915:  PRINT"f  8  =  SLET  "  :'M0VE400, 883;  PRINTMf  9=SVAR11 
600  ENDPROC 

610  DATA  O, 576,832,576, 832,512, 0,512, 192*512, 1 92, 41 6, O , 41 6, 632*416,832, 
,0,512,  0,512,416,  192,416, 192,0,832,0, 832,64,0,64,  192,64, 192,0,0,0 
620  DEFFRDCgaet 
630  XY.= 480 
640  REPEAT 

650  IF  <Y"/.“80)  /32>-10  THEN  i  kkef  1  er  e  gået  “TRUE :  r  i  g  t  i  g  kode  “TRUE ;  GOTO  7E 
660  IF  X7*“736  THEN  X 7  =  480 
670  X7-X7.  +  64 

68 O  knap  t  ryk=*GET 

690  IF  knaptr yk=49  THEN  PROCf arve  < 1 )  : GOTO  780 
700  IF  knap tryk =50  THEN  PROCf arve (21 ; GOTO  780 
710  IF  knap tryk=5 1  THEN  PROCf ar ve (3) : GOTO  780 

720  IF  knaptryk=52  TH6N  PROCf arve ( 4 ); GOTO  780 

730  IF  knap tryk® 53  THEN  PROCf ar ve (5 >: GOTO  780 

740  IF  knaptr yk  =  54  THEN  PROCf arve ( 6)  s  GOTO  730 

750  IF  knap t ryk-69  THEN  GCOLO,  7 :  M0VE544 , 43;  PRINT  "tt  tt 11  i  X 7=480 :  GOTO  7,E 

760  IF  knaptryk ”83  AND  POINT < 763, 32) < >7  THEN  PRQCsvar : GOTO  780 

770  X7,  =  X7,-64 

780  UNTIL  rigtigkode 

790  ENDPROC 

BOO  DEFPROCf ar ve < f ar ve ) 

BIO  GCDL  O, farve 

820  MOVE  X7-,  48:  PRINT"  *" 

830  ENDPROC 
B40  DEFPROCsvar 


64*272 


— HV  ID"  * 


512,832 


630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

BOO 

810 

820 

830 

840 


RUE: GU TO  7 BO 


GOTO  780 


480:  GOTO  7,80 
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GRMGS 


850  XX=544 

860  sor t^O:  h vi  d=0: YX=YX+32 
870  gast (1>-P0INT<576,32> 

880  gået  (2) =P0INT  <640, 32) 

890  gået (3 >  ~P0 1  NT  <704  3  32) 

900  gået (4>=FDINT (760, 32) 

910  PROGsort_hvid 
9  20  P ROC  v i  s  k o  d  e 
930  FX =22 4 

940  IF  hvi d=4  THEN  rigti  g  kode-TRUE 
950  GCOL  O , 5 

960  MOVE  F7.,Y7.  +  10:  IF  h vi d >=1  THEN  PRINT"  •  "  8  hvid=hvid-l  s  FX-FX+64S  GOTO  960 
970  GCOL  0,6 

980  MOVE  FX ,  YX+ 10:  I F  sort>“l  THEN  PRINT"  .  M  :  sort»sort-l  a  F/l=P7.  +  64:  GOTO  980 
990  XX=480 


IC 


1010  DEFFRQCsl ut 
1 020  aaet < 1 ) ^kode ( 1 > 

1030  gået  (2  >  **kode  ( 2) 

1040  gaet(3)=kode(3> 

1 050  gået (4? -kode ( 4 ) 

1060  GCOLO,  4 

1070  IF  ikke-Fleregaet  THEN  MOVE  1 92, 640: PR  I  NT " AK  -  J O"  ELSE  HOVE  1 28*  640: PRINT " 
TILLYKKE ! M 

1080  YX  =  472: GCOLO, 7 : MOVE  544, 444: MOVE  796 , 444 ; FLOT  35?  544, 476: PLOT  85*796? 476: P 
ROCvi skode 
1090  GCOLO, 4 

1100  HOVE  -160, -32 J  PRINT" VIL  DU  PROVE  IGEN?" 

1 1 10  knap t r y k  =  GET 

1120  IF  knaptryk-73  THEN  gameover=TRUE : ENDPROC 

1130  IF  knap  tryk =74  THEN  ENDPROC 

1140  GOTO  1110 

1150  DEFPROCsor t_hvi d 

1160  FOR  husk” 1  TD *  4  :  k (husk ) — kode (husk ) : g (husk ) =gaet  (hus k )  : NEX T 
1170  FOR  test= 1  TO  4 

1180  IF  gået t test ) =kode (test )  THEN  h vi d=hvi d+1 : gået ( test ) =0: kode (test J =7 
1190  NEXT 


1  180 
1  190 


1200  FOR  t  est  =  1  TO  4 


1210 
1  220 
1230 

1240 


<  hus  i  :  =  l  TO  4 

IF  gået ( test > —kode ( husk )  THEN  sort— sort  +  1 : gået (test ) =0: kode  (husk ) =7 


1230  NEXT  husk 

1240  NEXT  test 
1250  FOR  husk- 1  TO  4 

1 260  k od  e ( h  u  sk  >  =  k (husk) : g  a  e  t (hus  k ) =g (husk) 

1270  NEXT 

1280  ENDPROC 

1290  DEFFROCvi skode 

1300  MDVE544 , YX: GCOLO? gået ( 1)  : PRINT"*" 

1310  M0VE608 ? YX : GCOLO? gået (2) ; PRINT" * " 

1320  MQVE672* YX:  GCOLO? gået (3)  : PRINT" * 

1330  MOVE 736, YX; GCOLO? gået (4) : PRINT" * 

1340  GCOLO?  7: M0VE544, 48: PRINT"***#' 

1350  ENDPROC 


Qftem  or«u  ^ 

co^oAo^ 

Til  P’ise„?  wnx  ■  ^aseI ' 


^e^°' 


■\N82£>6 
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Du  har  en  Amstrad,  men  økono¬ 
mien  sejler.  Fat  mod,  for  nu  er 
regnskabsprogrammet  kommet. 
Når  du  har  indtastet  det  SKAL  du 
SAVE  det,  før  du  starter,  da  det  vil 
slette  noget  af  sig  selv.  Når  du 
starter  opT  skal  du  trykke  CTRL  O 
(nullet  på  det  separate  taltasta¬ 
tur)  for  at  genstarte  programmet. 
Er  du  ved  hovedmenuen,  kan  du 
trykke  P  for  at  slå  printeren  til  og 
fra.  Og  taster  du  8,  får  du  en  fiks 
le  regnemaskine.  Nu  kan  du  så  ind¬ 
taste  dit  regnestykke,  tryk  ENTER 
efterfulgt  af  CTRL  og  Y 
tummet  på  taltastaturet).  Så 
kommer  resultatet  frem,  og  ved  et 
tryk  på  endnu  en  tast  kommer  du 
tilbage  til  hovedmenuen. 
Programmet  kan  vise  over-  og  un¬ 
derskud  ved  hjælp  af  3D  søjler  og 
nogle  taster  er  desuden  program¬ 
meret  til  at  komme  med  flere  ka¬ 
rakterer. 

Peder  Pedersen 


10  GOTO  1140  1  Regnskab  Peder  J,  Pedersen,  Karise 

20  KEY  20, ' * : p*=*FRA" : p  =  2:PEN  14;L0CATE  1 #  21 : PR1NT*HUSK  AT  LOADE  FØRST ! “SPACE* ( 2 
5) ; :PEN  9? INPUT* Save/ Load  navn  *f**:IF  LENIs*) >16  THEN  20  ELSE  PEN  3:L0CATE  1, 
25:  PRINT* Årstal  *CHR*(143> 

30  GOSUB  580: IF  iS<*0*  OR  THEN  30  ELSE  a«-a*+ i •: LOC ATE  8, 25: PRINT  a*+CHR* 

(143) MF  LEN(a*><2  THEN  30  ELSE  PEN  l J INK  0,0: INK  1,15: BORDER  O 
40  '  Hoved  menu 

50  ON  ERROR  GOTO  11 20:  KEY  30,“:  MODE  2:  UINDOUttl ,  1 , 80,  25,  25:  UIND0UH2,  1 , 80, 2, 24:  UI 
ND0UM3, 1,80 ,2 1,25: UIND0UN4, 1 ,80,2.20: IF  VAL (a*)/ 4-0  THEN  *%<2)«29 
60  LOCATE  3l,l:PRINT*R  E  G  N  S  K  A  B  *a«: LOCATE  31.3:PRINT*H  OVED  MENU* 
: LOCATE  30, 5: PRINT  CHR*U64)*  PJP*: LOCATE  26.0: PRINT‘1 .  Input *: LOCATE  26,10:PRI 
NT  *2 .  Slat*  :  LOCATE  26, 12:  PRINT*3.  Ratt#*  :  LOCATE  26, 14:  PRINTM.  Ll»t»* 
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GAMES 


70  LOCATE  26, 16:PRINT*5.  Søge ■ : LOCATE  38, 8: PRINT*6.  Arsov*rs i gt *: LOCATE  38. 10: PR 
I NT“  7 ,  Ændre  +’ tast er *: LOCATE  38, 12: PRINT *8.  Regnemaskine* 5 LOCATE  38, 14: PRINT'9. 

Save  data* : LDCATE  38, 16: PRINT'O.  Load  data* 

80  LOCATE  32, 22; PRINT *Fr i e  bytes * FRE (**) -4096: LOCATE  26. 255PRINT* Antal  poster  de 
r  er  brugt  *.-i-l :  LOCATE  32, 19:PRINT"Pr  inter:  *p*:S0UND  1,119;G0SUB  570:IF  i*-*P  A 
ND  p=8  THEN  p*=*FRA*:p=2  ELSE  IF  i*-*p*  AND  p-2  THEN  p*»CHRS<24) +*TIL“+CHR* (24) : 

p  =  8 

90  IF  i$< “O"  OR  i$>“9“  THEN  80  ELSE  ON  ASCUS3-47  GOSUB  630,160,130,200,230,750, 
960,690, 110, 620 l GOTO  50 
100  1  Regnemaskine 

110  CLSttS:  INPUTB3  “HUSK  !  \  CTRL+.+tast.  Stykke " J  cS: KEY  30,  *7  *  +c*+CHR*  f 13)  * "CALL 
Lbb 18 : GOTO  50"+CHR*f 13) : CLS« 3: END 
120  *  Slette  post 

130  CLS: LOCATE  1,25: INPUT *Nr.  du  vil  slette  (ENTER*MENU)  “ls:IF  s-0  THEN  GOSUB  5 
00: RETURN  ELSE  IF  s< 1  OR  s>n-l  THEN  GOSUB  300: GOTO  130 

i  40  FOR  m=s  TO  n  :  dX  ( m)  =d%  <  m+1 3  :  wS  (m3  =w*  (m+ 1 3  :  t  Cm)  Cm+ 1 )  :  NEXT:  n«n- 1 :  GOTO  130 
150  1  Input 

160  GOSUB  520: CLS:s*p:p»2; GOSUB  280: p»»: L0CATE#4 ■ 40 ,1 : FRINTW4, CHR* ( 24 ) I ; PRINTH4 , 
USING “  QUERFØRT  tttttttttt#  ,  *  tt#  * ;  k  (  n~  1  3  :  PRINTtt4 ,  CHR*  < 24 )  I 

170  GOSUB  360; IF  THEN  RETURN  ELSE  PRINTtt4f TAB ( 5 f i d% ( n) "  "t*;:WINDGW  SWAP  2 

■ , 4 : GOSUB  450 1 WINDQW  SWAP  2,4 

■ISO  PRINTtt3, "Er  dette  rigtigt  fen  tast /n) “ f : GOSUB  570: IF  i *=*n*  THEN  PRINTH4 , TAB 
L(0)  |CHR*fllh  :PRINT#3,  CHRSUl  )  :  GOTO  170  ELSE  PRINTH3 ,  TAB  1 1  3  J  CHR*  i  1 1  3J  SPACE*  ( 40 3  | 
CHR* (11): GOSUB  420: n-n+i : GOSUB  520: GOTO  170 
1190  1  Rette 

200  CLS :  LOCATE  1 , 25: INPUT “Nr ■  du  vil  rette  i  ENTER*MENU3  *Js:iF  5=*0  THEN  GOSUB  50 
;0: RETURN  ELSE  IF  s<l  OR  s>n-l  THEN  GOSUB  300: GOTO  200 


1 :  WIN 


h 


:  PRINTHp, USING"# 
OD  23*0  THEN  GOS 


■210  LOCATE  8,3:PRINT  h*(s):L0CATE  1S,4:PRINT  t  fs) :LOCATE  10 1 10: PRINT " Brug 
:  tasten  til  at  kopire  med  -  " : LOCATE  1 , 21 l =  n : n  =  s: UINDOW  SWAP  0,3:G0SUB  370!n 
DOW  SWAP  0,3:IF  dS=“ “  THEN  RETURN  ELSE  200 
220  1  Udskriv  data 

230  CLS : 1 =n : GOSUB  280:F0R  n  =  i  TO  1 - 1 ; GOSUB  340: PRINT#2, CHR* ( 24 3 
:##“ l n* : PRINT#2,CHR*(24 J ; TPRINTttp, *  *f*"  * w* C n 3 J ; GOSUB  450= IF  n 
UB  260 

240  NEXT I n- 1 : GOSUB  600!RETURN 
250  '  Udskrift  pause 

260  IF  p=0  THEN  RETURN  ELSE  PR INT#1 , TAB { 23) " TRYK  EN  TAST  FOR  FLERE  i ENTER-MENY 3 “ 
:  GOSUB  570:  IF  i*«=CHR*(13)  THEN  n=  1  :  RETURN  ELSE  CLS#i:RETURN 
270  ’  Overskrift 

280  PRINT  CHRS(24) ; ;WINDOW  SWAP  Of 2 : PRINTttp. “ >Nr >* a*“ >DatD< <<>>>>>>>>>>>>>> >Teks 
t<<< <<<< <<<<<<<<<< >>Kasse<< >>Indtægt<< >>Udglft< ' XWINDOU  SWAP  0,2:PRINT  CHR*(24) 
: RETURN 


290  r  Fej  1  ret/slet 

300  LOCATE  lf25:PRXNT  SPC  (8)  “Dette  nr  duer  ikke.1" SPC  (101:  GOSUB  400:RETURN 
310  1  Fej  1  dato  input 

320  e=VAL  ( MID*  fd^tl,2)  3  : f “VAL  f  MI  D*  ( d*, 3,2 ) 3 ; IF  e<l  OR  e>12  THEN  PRINT#3.  "  Fej  1  i 
dato!  GOSUB  400:  GOTO  360  ELSE  IF  f<l  OR  f>m%le)  THEN  PRINTW3 , " Fe j 1  1  datoJi:GOS 

UB  400: GOTO  360  ELSE  370 
330  *  Dato  streng 

340  d$=STR£(dX( nf> : f =VAL ( RIGHT* Cd* , 2 3 ) : e**LEFT* ( d*. LEN ( d*> -2) : e«VAL(e*3 : b*«LEFT* 
(m*ie)  ,31  :  cS^STR*  (4  3  +■  ,  "  :  f*=b*+c*:  IF  -f<iO  THEN  f*=b*+“  "+c*:RETURN  ELSE  RETURN 
350  f  I n put /Ret  te 

360  rNPUTH3,  “HånedDato  fx.  0916  C  ENTER“MENU)  "id*:  IF  d*=-"  -  THEN  GOSUB  500:  RETURN 
ELSE  d% ( n)=UAL (d*)  :d  =  dXfni  : IF  LEN<d*)<>4  OR  INSTR ( d* , * f J >0  THEN  PRINTH3, "Fej  1  i 
længden. ‘ : GOSUB  40O!GOTO  360  ELSE  320 

370  FRINTtt3,TAB(46> ; CHR*( 143)  f “STOP  her “ I CHR* f 1 1 ) ; LINE  INPUTW3, "Tekst" J  t*: IF  LEN 
( t* )  >38  THEN  PRINTttS , "Fej  1  i  længden* " : GOSUB  400:GDT0  370 

380  w*<  n)  =t*:  INPUTW3,  “Ud=*-tal  ,  Ind=*tal  “  S  t :  t  ( n  >  *ROUND  ( t ,  2)  :kin)=kfn-l)+t(n)  :  RETURN 
390  *  Pause 

400  FOR  o—l  TO  500: NEXT: RETURN 
410  1  Sorterer 

420  IF  dX(n) >d*(n-i)  AND  h* ( n > > w* ( n- 1 i  THEN  RETURN 

430  FOR  m=n  TO  2  STEP  -I : IF  f dX ( m Kd% im- 1 ) 3  OR  ( dX ( m ) “dX i m-1 3  AND  w* Cm) < w* f m- 1 3 > 
THEN  H*(mJ  =w*(m-l)  :  t  (m>«t  fm-l>  :  dX (m)  =-dX  tm- 1 3  :  w* lm-i  )  «t*:  t  tm-i  )  »t :  dX  tm-1 )  *d:  t*=w* 
f m- 1 3 : NEXT  ELSE  RETURN 


440  ’  Tal  udskrift 

450  PRINT*p,TAB  (513  i  USING*tt*t#ttttttf  k  tn3J  :  IF  tfnXO  THEN  PRINTttp ,  TAB  C  72)  \  USING 

; ABS ( t  f  n  3  J  ; : RETURN 

4  60  PRINTttp f T AB (623  f USING" -  tt#  *  j  t  Cn>  J : RETURN 

470  1  Sjøe  udskrift 

4  80  PRINT#2, CHR* ( 24 )  [ l PRINTttp , USING" tt#tt "in! : PRINT#2, CHR* ( 24 3  I JP RINTttp, “  “f*“  " w* 
£  n  3  J  : GOSUB  450 : b*b  + 1 ( n 3  : t * t  + 1 5 IF  t  MOD  23< >0  THEN  RETURN  ELSE  GOSUB  260: RETURN 
490  1  Ordne  kassen 

500  FDR  m= 1  TO  n : k C m) =ROUND C k f m- 1 ) + t f m) f 2) : NEXT: RETURN 
510  1  Mere  plads? 

520  IF  n  >a  OR  FRE ( “ “ 3 -4200< O  THEN  LOCATE  1 ( 25J PRINT" Ikke  mere  plads  desvære ! " : GO 
SUB  400: GOTO  50  ELSE  RETURN 
530  1  Sammentæl  ler 

540  IF  t(n)<0  THEN  u ( e) =u ( e) +ABS ( t C n 3 > : u f O) =u < O 3 + ABS < t C n > >  ELSE  i ( e3  =  i  C e) + 1 ( n ) : i 
f  O  3  =  i  f  O  3  + 1  (  n  3 

550  r (e)=i fe) -u ( et: RETURN 
560  T  Inkey* 

570  SOUND  1 , 1911.3; SOUND  3.478,5 

580  i*  =  L0UER*(INKEY*3  : IF  i 4= " "  THEN  580  ELSE  RETURN 


590  ’  Tast  tryk 

600  CLStti: SOUND  1,119: LOCATE  35 , 25: PRINT" Try k  en  tast":CALL  ^BB16; RETURN 

610  *  Save  data 


620  OPENOUT  s*:  WRITE#9,n  ,a*:  FOR  ft-1  TO  n :  WR I TEM9  ,w*  (n)  ,  dX  tn)  ,  k  (»3  ,  t  ( tn )  :  NEXT 
630  FOR  m*0  TO  29: WRITE#9, h* («>: NEXT! CLOSEOUT: RETURN 
640  1  Load  data 

^52,  ,£hsiPRINT*HUSK;  du  *l*tt«r  all«  data.  Sav«  ?  (j/«n  tast)";QOSUB  570: IF  i* 

*  THEN  620 

9£|NIN„*$llyPuI‘t’),eLa*:F0R  mMi  TD  bl  INPUTH9,  w*  tm)  ,  d%  (m)  ,  k  (m)  ,  t  (m)  1NEXT 

29:  INpUTi9,  h*(m)  :KEY  tn(h*{m)  !  NEXIr :  CLDSÉlN :  FOft  m=n  +  I  TO  a:H*(m) 

#  rit  A  I  *  R  t  f  U  fx  fM 


“j 


TAST  -  33 


GAMES 


luuh i b 

■CHR*(24) | m+20i CH 


680  ’  F"taster 

690  CLSi PRINT  CHR* ( 24 > STRING* < 34 , 62) *  Tekst  taster "STRING* (34, 60) CHR* ( 24) : PRINT"! 
altaster. *SPCi30) "F* taster : FOR  m=0  TO  9JL0CATE  l,ro+5:PRINT  CHR*(24J"  CTRL"«"  = 
■CHR*t24)"  "h*(m) 1L0CATE  41 , ( (m+10) #2) -15: PRINT  CHR*(24>“  SHIFT  +"m“  *  “CHR*(24 
)*  “h*{ra+10) 

700  LOCATE  41  ,Um+10)  #2) -14:  PRINT  CHR*<24)“  CTRL  =  “CHR*<24J*  Bh*(m+20)  :NE 

XTlGOSUB  600: CLS: PRINT "Ta i  med  CTRL  nede.  Har  tastnumrene:  "CHR*(24)"  123 
4567890  “CHR* (24) 

710  LOCATE  1,5: PRINT “Numrene  +Dr  F’ taster: ": PRINT! FOR  m=0  TO  9: LOCATE  5+m#3,m+7: 
PRINT'SHIFT  f*m"  :  “ CHR* ( 24 > ; m+ 10; CHR* (24 ) i SPC < 10 > "CTRL  i ‘tn “  :  'CHR* (24 ) i m+20 ! CH 
R* ( 24  > : NEXT 

720  LOCATE  1, 19: INPUT “Tekst  < ENTER=MENU > “ i h* : IF  h*=‘“1  THEN  RETURN  ELSE  PRINT: IF 
LEN (h*) >20  THEN  PRINT “For  mange  tegn!“:GOSUB  400:60T0  720 

730  INPUT “Tast -nr : *  j  h: IF  h<0  OR  h>29  THEN  720  ELSE  h*(h)=h*:KEY  h,h»:60T0  690 
740  '  Seede  1 
750  1 =n-l 

760  CLS: PRINT  CHR* < 24 ) i  STRING* (36, 62 i “Sj3SNING“STRING* (37, 60) jCHR* (24) i LOCATE  34, 
5: PRINT “A .  Søge  Måned ■: LOCATE  34 , S: PRINT "B .  Sege  Dato": LOCATE  34, 1 1 J PRINT’C .  Sag 
0  Tekst  * 

770  LOCATE  34,14:  PRIKT  “D.  Sirge  Ind/Ud " : LOCATE  34,17"  PRINT-E.  List©  nr-nr'lLOCATE 
34,20:  PRINT“F .  Ændre  +  /-  ■  j  :  LOCATE  34,23:  PRINT “ENTÉR^HO VED  MENU- 
7B0  GOSUB  570: IF  it('a“  OR  THEN  IF  i*=CHR*£13)  THEN  n=l  +  1 : RETURN  ELSE  780 

790  CLS?  GOSUB  280 S  CL S#2 ! t =0 ! b=0 : ON  ASC i ~96  GOSUB  810, 840, 870 , 900, 930 f 000: PRIN 
T#pf TAB (56) i USING“ Ialt  tttttttttttt , . #4 “ ( b: GDSUB  600: GOTO  760 
800  INPUT# 1 , "indtast  +  /-  tal  >  O  “ijilF  j<0  THEN  800  ELSE  RETURN 
810  INPUT#! , "Hvi Iken  måned  (1-12) “ i  si IF  s<l  OR  s>12  THEN  810 
820  FOR  n“l  TO  1 : GOSUB  340:IF  e=s  THEN  GOSUB  480 


T#pf  TAB (56) l USING“ Ialt  ######., ##M J b: GOSUB  600: GOTO  760 
800  INPUT#1, "Indtast  +  /-  tal  >  O  j<0  THEN  800  ELSE  RETURN 

810  I  NPUT#  i ,  "Hvi  Iken  måned  (l-12)Mis£X  F  s<l  OR  s>12  THEN  810 
820  FOR  n“l  TO  1 : GOSUB  340: IF  e=s  THEN  GOSUB  480 
830  NEXT: RETURN 

S40  INPUT# 1 , “Hv i Iken  dato  ( 1 -31 ) “ ; s: IF  s<i  OR  s>31  THEN  840 
850  FOR  n=l  TO  1:G0SUB  340:  IF  *=s  THEN  GOSUB  480 
860  NEXT : RETURN 

870  INPUT#!, -Hv  i  Iken  tekst  -  i  is:  IF  LEN(t*Kl  OR  LEN£t*)>38  THEN  870 

880  FOR  n-i  TO  1 : GOSUB  340:IF  INSTR ( LOUER* ( w* ( n )) , LOWER* ( t*J  ) < >0  THEN  GOSUB  480 

890  NEXT: RETURN 

900  INPUTtti,  “H\m  Iken  Indtægt /Udgift  (ud=-tal ,  i  nd=tal  >  -  i  s 

910  FOR  n=l  TO  1 :  IF  t(n)+j>=s  AND  t(n)-j<=s  THEN  GOSUB  340:G0SUB  480 


js,a:IF  s< i  OR  o>l  THEN  930 


900  INPUTtti, -H\m  Iken  Indtægt /Udgift  (ud=-tal , i nd=tal > -  i  s 

910  FOR  n=l  TO  1 : IF  t(n)+j>=5  AND  t(n)-j<=s  THEN  GOSUB  340:G0SUB  480 

920  NEXT J  RETURN 

930  IF  n=i  THEN  RETURN  ELSE  INPUT#!  -Star t, Slut  nr  Mjs,o:iF  s<i  OR  oH  THEN  930 
940  FOR  n-s  TO  o: GOSUB  340: GOSUB  480: NEXT! RETURN 
950  1  Arsnversigt 

960  CLS: 1-n: LOCATE  1.1  SPRINT  CHR* £24) ? STRING* < 33.62) -ARSOVERS I GT  “a*! STRING* (33, 
60) \ CHR* (24 ) ; DIM  i ( 12) ,u U2> . r ( 12) 1  FOR  n=i  TO  1 : GOSUB  340:GGSUB  540:NEXT!n=l 
970  PRINT:  PRINT  “Måned  “SPC  ( 15f  **  Indtægt  “SPC  (11)  "Udg  ii  t  "SPC  £  13)  “RestMSPC  ( 14)  “Måned" 
:FOR  ro=i  TO  12:L0CATE  1 .  m+51  PRINT  m*£m)  JLOCATE  17,m+5:PRINT  USING-#######.*## 
#######,.##  tt###### ,,##H; i (m) ,u(m) ,r(m) : LOCATE  81-LEN (m* (m)  ) , m+5: PRINT  m 


#######,.##  #######,*##"; i (m) ,u(m) , r (m) : LOCATE  81-LE 

* (mi INEXT 

980  PRINT; PRINT- Ialt  “a*“:  “IIPRINT  USING“ ########,* ## 

tt#######, . tttt “ J i £0 ) , u ( O)  , i (O ) -u  £  O) 1 LOCATE  73,20: PRINT*  *  a** 


########,,## 

lal t “ : GOSUB  600 


IF 

IF 

IF 

IF 

IF 


40  TO  360  STEP  20: 


-30, ABS(m“160) ;PRINT 
i  : MOVE  10 , 200: DRAW  6 


990  f  3D  Siri  er 

1000  MODE  0:s=0:FOR  m=l  TO  12: s-MAX  £ABS(r(m) ) ,s) : NEXT : g*=CHR* (128) +CHR*  C 129 ) 

1010  IF  s<-80  THEN  s-1 : q*=CHR* ( 128 ) : GOTO  1070 

1020  IF  s<  =800  THEN  5=10: g*=CHR* ( 128) +CHR* (130) : GOTO  1070 

1030  IF  s < “8000  THEN  s^lOOlGOTO  1070 

1040  IF  s <=80000  THEN  s=1000: g*=g*+CHR*£ 130) : GOTO  1070 
1050  IF  s<  =800000  THEN  s=10000 : gS=g*+CHR* £  129 > 

1060  IF  s >800000  THEN  RETURN 

1070  PEN  i:TAG:MOUE  O. 34: PRINT  g* i  i MOVE  O, 376: PRINT  g* i : FOR  m=40  TO  360  STEP  20: 
MOVE  80. m: DRAUR  20,0,1: NEXT 

1080  q=10:F0R  m=216  TO  366  STEP  20:M0VE  -30,Tn:FRIN!  o5:M0VE  -30tABS(m-160) ;PRINT 
90**o| :  p=o+10:  NEXT :  MOVE  0.396:  PRINT“Kr- i  :MOVE  0, 14:  PRINT“Kr  *  ? :  MOVE  I0,200:DRAW  6 
39,200: MOVE  100, 10: DRAW  100,390 

1090  FOR  o-i  TO  12:q=(r£o)/5)*2:IF  q<0  THEN  FOR  m^O  TO  ABSlqKMOVE  p>44+64, 200-m 
: DRAUR  24,0,7! DRAUR  12, 7 , 8: NEXT: FOR  q=l  TO  71 MOVE  0*44+64+ ( q£2) , 200+q: DRAUR  24,0 
.9! NEXT: GOTO  1110 

1100  FOR  m-0  TO  q:MOVE  o*44+64,200+m: DRAUR  24, O, 10 : DRAUR  12, 7, 5: NEXT: FOR  q=i  TO 
7: MOVE  0*44+64+ ( q*2 ) f  200+m  +  q; DRAUR  24l0,6;NEXT 

1110  NEXT: o=l: FOR  m=l 12  TO  639  STEP  44: MOVE  m, 16,1: PRINT  LEFT* ( m*  C  o ) , 1 ) f : MOVE  m, 
399: PRINT  LEFT*(m*(D) , 1 ) i :o=o+l: NEXT: TAGOFF: ERASE  i,u,r:SOUND  1,119:CALL  &BB18:R 
ETURN 

1120  RESUME  NEXT 

1130  1  Start  som  slettes 

1140  a=730 : n=i : DIM  w* (a) , m* £12 ) , h* ( 29) , m% £  12) , d% £ a) , k ( a) , t { a) S  INK  Oti:INK  if24!I 
NK  2,20: INK  3. 6: INK  4,26: INK  5f 18: INK  6, 19: INK  7,3:lNK  8.6: INK  9,7: INK  10,9: INK 
12. lQjINK  14. 1, 24! SPEED  INK  10,40: PAPER  O: BORDER  1: MODE  O 

1150  PEN  12:L0CATE  7,4:PRINT“REGNSKAB“:L0CATE  10,8;PRINT“A+“:PEN  3: LOCATE  1, 13:P 
RINT  CHR*  <  164J  i  :  PEN  2.*PRINT“  Peder  J.  Pedersen  “:  PEN  4:  LOCATE  8.18!  PRINT  "Kar  ise* 
1160  SYMBOL  AFTER  256: MEMORY  HIMEM-547: FOR  m=l  TQ  9! READ  oJPDKE  HIMEM+m. oj NEXT: q 
•JNT( (HIMEM+ll /B56) S  o- < HIMEM* 1 > - (2S6*q» ! POKE  HIMEM+5, o: PQKE  HIMEM+6, q! cAlL  HIMEM 
+  1  *, DATA  33,  160,2, 17.0,0,  195,21 , 1S7 

1170  SYMBOL  AFTER  91: SYMBOL  91 , 126, 216, 216, 254 , 216, 216, 222: SYMBOL  92.118,200,214 
,214,214.38,222: SYMBOL  93,56,0.124,198,254, 198 , 198! SYMBOL  123,0.0,118,26,126,216 
, 1 lOi SYMBOL  124,0,0, 118,204,214, 102. 220: SYMBOL  125,48,0,120,12.124,204.118 
1180  SYMBOL  128, 138,82,82,34,82,82, 138:SYMB0L  129,102,153,153,153,153,153,102,0: 
SYMBOL  130.96,144, 144, 144, 144, 144, 96, 0:KEY  DEF  17, 1 , 125, 93: KEY  DEF  19, 1 , 123, 91 J K 
EY  DEF  22,1.124,92 

1190  KEY  DEF  64 ,1 , 49 , 33, 129: KEY  DEF  65, 1, 50, 34 ,130: KEY  DEF  57,1,51,35, 13i:KEY  DE 
F  56, 1,52,36, 132:KEY  DEF  49. 1 , 53 , 37, 133: KEY  DEF  48, 1,54,38, 134:KEY  DEF  41,1,55,3 
9. 135: KEY  DEF  40.1,56,40.136 

1200  KEY  DEF  33, I , 57, 41 ,137: KEY  DEF  32, 1 , 48, 95, 128: KEY  DEF  7, 1,46, 44, 158: KEY  DEF 
15, 1,48, 138, 148:KEY  DEF  13, 1.49 , 139 , 149: KEY  DEF  14 , 1,50 , 140, 150: KEY  DEF  5,1,51, 
141,151: KEY  DEF  20, 1 , 52, 142, 152: KEY  DEF  12, 1 , 53 , 143, 153: KEY  DEF  4,1,54,144,154 
1210  KEY  DEF  10 ,1 , 55 , 145 ,155: KEY  DEF  1 1 , 1 , 56 , 146 , 156! KEY  DEF  3, 1 , 57, 147, 157 ! KEY 
DEF  6.0,13, 13, 159:  KEY  DEF  66,  0. 0,0. 0 :  FOR  m=0  TO  31:  KEY  m,  NEXT.1  FOR  m-1  TO  12 
1220  READ  m* (IB)  ,m%(m)  :  NEXT:  LOCATE  1,22:  PEN  1: PRINT" TRYK  PA  ''CTRL  +0*'  !":KEY  20,  " 
GOTO  20“ +CHR* ( 13) : DELETE  1140-iDATA  Januar , 31 , Februar , 2S, Marts, 31 , Apr 1 1 , 30 , Maj , 3 
1 , Juni ,30, Jul  i , 31 , August , 31 , September , 30 , Oktober , 31 , November , 30, December , 31 


34  -  TAST 


TAST  -  35 


220  PLOT  160, 1  Tit  DRAWR  2,10iDRAHR  50, Ol DRAWR  7 , 30 i DRAWR  -50, Oi DRAWR  10,4 
O: DRAWR  60,0: DRAWR  -2 , - 1 0 i ØRAMft  -30, Ot DRAWR  -3 , -20 l DRAWR  50  „ 

O i  DR AMR  -12,-501  DR AMR  -60,0 

230  PLOT  240, 1 96i DRAWR  20,BaiPRAWft  60, O i DRAWR  -2 ,“1 Oi DRAWft  -50,01  DR AMR  - 
4 , -20t DRAHR  30, O t DRAWR  ”2,«løi  DRAWR  -30,01 DRAMR  - 1 0, -40 1  DRAM 
R  -10,0 

240  PLOT  320 T 1 96 1 DRAWR  2,l0lDRAWR  23,ØiURAHR  14,60<PRAWft  - 25, Oi DRAWR  2,1 
G: DRAWR  iøpO^DRAHR  -2,-lOiDRAWR  -23,0iDRAWR:  -1 4 , -60;  DRAWR  25 
,0+ DRAWR  -2,-LOlDRAWR  -60,0 

230  PLOT  4^0, 196 i DRAWR  20, BØi DRAWR  60, øt DRAWR  -2,-101 DRAWR  -50 *01 DRAWR  - 
1 4  ,  -601  DRAWR  40,0:  DRAWR  7,30iDRAHR  -22, Qj DRAWR  2,10tDRAWR  33 
tø:DftAWR  W3*-5øl  DRAWR  -60,0 

260  PLOT  400,  l96i  DRAWR  20,B0iDRAWR  10, Oi DRAWR  “7, -30l DRAWR  40, Ct DRAWR  7, 
30 t DRAWR  JO,øiDRAWft  -20 , -00* DRAWR  -iO,Ol DRAWR  tø,  401  DRAMR  -4 
O,0:DRAWR  -10,-40iDRAWR  -10,0 

270  PLOT  305, 176 J DRAWR  13, 7øi DRAWR  -25,0iDRAHR  2,101 DRAWR  60,0tDRAMR  -2, 
-1  Os DRAWR  -23 ,0i DRAWR  - 1 3 » -70 i DRAWR  “10,0 

280  LQC-ATE  14,4s REN  3t PRINT “JAN  PEDERSEN" t LOCATE  16,6] PEN  3i AR INT^PRESEN 
T1* 

290  LOCATE  17,16iPEN  3t PRINT  CHH*{164)("  1?B5* 

300  LOCATE  1 , 23 1  REN  3iPRlNT"F  for  PLAY  1  for  INSTRUKTION  NtLC 

CATE  13,23 

310  1F  1NKEYC27I-0  THEN  r  a-REriAI  N  (O )  i  BGUNO  133 , 0, 0, 1 1  GOTO  330 
320  IF  INKEY ( 33) “O  THEN  ra»REMAIN 101  i  SOUND  133 ,0, 0 , 1 1  GOTO  3700 

340  GOTO  310 
330  MODE  O 

360  KEY  l30,Bctfil  ItbbffiCåU  fcbb4«i  ipttd  k(ty  1 0 , 10" *CHftf  (  1 3) 

370  tfkud*“5TRINE*(40,CHR*(l54)> 

390  SPEED  KEY  1,1 

390  INK  0 , 26 1  INK  t, ør  INK  2,22l  INK  3,6ilNK  4,lli  INK  3,lSt  INK  6,5l  INK 
7,0;  INK  0,23: INK  10, 7 1  INK  11,6: INK  l2*3j INK  13,9 
(500  INK  13,0 
410  INK  14,0 
420  y-l2i «-2 
430  «k**""  N 
4  40  uh  yr-O  i  uh  yr  *“  " H' 

430  uhyrnr-l 
460  rfciflt"G 
470  tic -O 

4DØ  high*-BTR*(hi  (O)  i 
490  tfk»typa-0 

500  b  Qinb  By  “O  i  b  onrib  ok  “0 1  b  Grib  tf— O 
310  Yutfl-999 
320  ItfVtfl-l 

330  liv-3t  1  i  v*“CHR*{  165) +CHRK  166i 
540  Iv*+liv*+l i vf-l ivf 

330  L*rtdI**LEFT*<I#nd**20l 
360  PAPER  li  BORDER  0;  CLB 

370  1 

3Q0  '  kontrol  vihdutft 
390  * 

600  MIND DU  11 , 1,20,21 ,25 
610  PAPER  *1,4iCL8  »1 

620  LOCATE  ll,l,2iPAPER  1 1,4  i  PEN  1 1 ,5i PAlNTtl , “BCGREt  OOQDDH 

630  LDCATE  41,  1 ,4: PAPER  11,4* PEN  1 1  , 6:  PR INTll ,  "HIGH  i  •*  j  MIDI  (hi flh* , 2 , 6 ) 

640  LOCATE  I 1 , 13, 2i PAPER  *1,4 (PEN  *1 ,7lPRlNT*l **FUELi 999“ 

630  LOCATE  #1 ,  13 ,4rPAPER  tl,4iPEN  #1 , 2i  PRINTIl  ,LEFT*  tU  v* ,  Ui  V#2H 
660  LOCATE  x  ,  yt  PAPER:  UPEN  2i  PRINT  CHR*  (165)  i  CNR*  ( 166 ) 

670  LOCATE  t,20i PAPER  It PEN  Si  PRINT  STRING* <20 , CHR* U 43) ) 

690  EVERY  50  GOSUS  2310 
690  ' 

700  ‘KAln  loop 
710  ' 

720  IF  lNK£Y(67)-0  TUEN  SOSUB  1030 

730  IF  40YC0J-1  Oft  JE3Y(Q)-l7  CR  JOY (O) -9  CR  JQY(Q)-3  THEN  GØSLB  1030 
740  IF  INKEY (69) -0  THEN  GOSUE  i 090 

750  IF  JOY <01  *2  CR  J0Y(0)-IS  OR  JDY<OJ-iø  UR  J0Y(0)«6  THEN  GOBUS  1090 


760  IF  lNKEY(27>-0  THEN  GOEUB  H50 

770  IF  JOY (O) -4  OR  JOY  10) -20  OR  JOY (O) -5  OR  JØYCØ>-6  THEN  GO BUD  1210 
700  IF  INKEY<34?-0  ThEN  GOGUB  1210 

790  IF  JOY tO> -S  OR  JØY(0)«10  GR  J0Y{0)«7  QR  JOYfO>-24  THEN  GCBUB  1150 

000  IF  INKEY17D-0  THEN  GOSUB  1270 

BIO  IF  JOY  10) >— 1 6  THEN  GQSUP  1270 

B20  LOCATE  l , L9i  PAPER  llPEN  G l PRINT  l*ndl*t 

330  1 mnar - 1  u>d*+LEF T* U und* , 1 > 

040  l  und f “RIGHT* ( 1 ind* , 1  BO  i 

B30  1  and 1 *-LEFT  * ( 1  and  * , 201 

060  IF  uhyr -O  AND  uAyrnr“l  THEN  GPSUB  1660 

070  IF  uhyr -O  AND  uhyrnr-2  THEN  GCBUB  1730 

G80  IF  tih  y  r  “0  AND  uhyr  nr -3  TUEN  GQSUØ  1240 

B90  IF  uhyr-O  AND  uhyrnr-4  THEN  B05UD  1560 

900  IF  uhyr-1  THEN  BØSUB  1400 

910  IF  uhyrnr-1  AND  RND>0,3  THEN  IF  RND>0, 75  AND  y)lq«>2  THEN  yllgft-yllg 
m-l  ELSE  IF  ylig><16  THEN  yl tg*-yl i g«+ 1 

920  IF  uhyr  nr -4  AND  RND>0»3  THEN  IF  RND>0+73  AND  yMBa>2  THEN  yl  lg»-yl  l  g 
*-l  ELGE  IF  yllg*<16  THEN  yHg***yUo*+l 
930  IF  uhyrnr-2  THEN  yllgi*y 

940  IF  y-uhyry  THEN  IF  «“uhyrx  OR  K+l-uhyrK  ØR  X  +  2“Uhyr>t  THEN  *h6K-m«k* 
y“yi  akaf  HT  ramt“råsflt+ 1 1  uh  yr -O  td  kat  ypa“  1 1  BOBUS  l9S0l£0& 

UB  2120 

950  |F  y-uhyry  TlÆN  IF  K-l“uhyT«  THEN  pkflx-uhyrx  i  pkay-y t  s?k**'H'  "t  rjfll 

t-ramt+l j uhyrer OT€U»  L930iG08Uø  2120 

960  IF  uhyrnr-2  AND  y-uhyry  AND  bonba-O  AND  uhyrx > <*+3>  AND  RNØ>0,3  THEN 
bEHtvb»M  —  {uhyric— 2)  t  bo-nbay -ubyr y i  bamba  - 1 
970  IF  bomb p- I  AND  uhyrnr-2  THEN  GØBUB  2290 

9S0  IF  y-ba*ib*y  THEN  IF  bamb*n“K  GR  bcinbaM-K  +  1  THEN  banbflK  -Oi  bortbey-O !  tf 
k*X -x lirk  1  y-y r tf k *F ■"  “l  bambP"Øi  »katypo-1  rGOSUB  19501  GGSUØ 

2120 

990  IF  uhyrnr"3  THEN  IF  uhyrx'-nm  THEN  maxk-ø 
3 000  IF  fUtfld  THEN  G03UB  2370 
1010  GOTO  720 
1020  ' 

1030  -  op 
1040  * 

1050  IF  y<3  THEN  RETURN 

1040  LOCATE  k ,yi PAPER  1 1  PRINT  *  " r y-y- 1 1 LOCATE  h , yi PAPER  1 1  PEN  2l PRINT  C 

HRf 1163) | CHR* <166) 

1070  RETURN 

ioeo  ' 

1090  'n«d 

1 100  * 

tilø  IF  y  > 1 7  THEN  *kih -h i pkmy-y t wks*“ "  " i aktf typ*-l * GOBUB  1 930 1  GOBU  B  212 

O  i  RETURN 

1120  LDCATE  k,  yt  PAPER  li  PRINT"  **  i  y-y+1  r  LOCATE  x  (yi  PAPER  li  PEN  2l  PRINT  C 
HR*  t 165)  iCHRf 1 166) 

1130  RETURN 
1140  " 

1130  ’  hOJr* 

U6ø  ' 

1170  IF  x  >13  THEN  RETURN 

11  GO  LDCATE  x  ,yi  PAPER  li  PRINT"  41  i*-k+  1  r  LDCATE  x,  yt  PAPER  1 1  PEN  2l  PRINT  C 
HR* (163) iCRRf <I66) 


1 190  RETURN 

120ø  ' 

1210  *  vanitrtt 
1220  r 

1230  IF  m<3  THEN  RETURN 

1240  LOCATE  x ,  y.t  PAPER  1 1  PRINT1*  "  i  x-X -1 1  LOCATE  m,  yt  PAPER  liFEN  2i  PRINT  C 
HR*U63)  jCHRF  <166> 

1 230  RETURN  1 
1260  ' 

127C  4  sikuri 
1200  ' 

1290  »kudi -20- U *2) 

I3ø0  akudH  « (x+-2>  t  *kudy-y 

1310  LDCATE  »kudx , akudyt PAPER  ItPEN  SrpRINT  LEFT* i tkud*, »k udi  1 
1320  SOUND  1 30,10, ■‘*1,13, 1,2 

1330  LDCATE  akudx , »kudy l PAPER  1 1 PEN  li  PRINT  SPACE* (»kudi  I 

1340  IF  uhyrOo  AND  uhyrnr<>2  THEN  IF  y-uhyry  THEN  tf k*x-uhyrx  t  tf ki y-uhyry 

ttfktff-"  " i a ka t yp a-2 1 GOSUB  19301  SGSUB  22 1  Oi uhyr-Oi r#mt—  r *fnt  + 

1 

1350  IF  Uhyr  OO  AND  bomb  tf- i  THEN  IF  h(Whtitfy-*kudy  THEN  tfka  y-bomba/i  tfk»X-b 
ombax  i  aka*-1*  “  t  skatyp«  '2i  QQSUR  1950rbombtf-0i  banbax  — øi  bombay 

“O t  RETURN 

1360  IF  uhyrnr-2  AND  uhyrOO  AND  buenbayOy  THEN  JF  y-uhyry  THEN  akmx-uh 
yrMitfk»y«uhyryttfk»*"'4  "i  tfk*typtt-2iGØBUB  l930iG09UB  2210ruhy 
r-0: rorat-r*mt+l 

1370  IF  uhyr  nr— 4  AND  y-uhyry  THEN  MBUB  3940)  1 1 F  ltfv»li27  THEN  l  tf 

vol -1  sval +1 1  INK  Q,l avol 

1380  RETURN 

1390  - 

1 400  '  uhyre 

1410  ’ 

1420  IF  uhyrx<3  THEN  IF  uhyrnr»3  AND  m*xx«0  THEN  LDCATE  uhyrx , uhyry: PAPE 
ft  li  PRINT-  44 ;  uhyr-0 1  RETURN 

1430  IF  uhyrx<3  AND  uhyr nr -4  THEN  LDCATE  uhyr x , uhyr yi Pftl NT"  "iuhyrnr-l| 
uhyr— Oi  raoit— Ot  IF  ltfVtfl<27  THEN  lavtfl -l  avol  + 1 1  INK  B ,  1  oval  t  RET 
URN  ELSE  flETURN 

1440  IF  uhyrx<3  AND  uhyrnr<>3  THEN  LOCATE  uhyrx ,uhyryi PAPER  1 1  PR I  NT " 
uhyr-0 j RETURN 

1430  IF  ramt >20  THEN  IF  uhyrnr-2  AND  botMi«-l  THEN  LOCATE  borsbox  ,bwnbtfyt 
PRINT" 

1460  TF  rirat>20  THEN  IF  uhyrnr<4  THEN  uhyrnr  “uhyrnr  +  1 1  uhyr-Oi  r -mt*ØI  RET 
URN i  ELSE  uhyrnr-1 i uhyr-0 irflflit“Ol RETURN 
1470  LOCATE  uhyrx , uhyry* PAPER  1 1 PRINT H  " 

1400  IF  uhyry<yl Lga  THEM  ohyry-uhyry- 1 

1490  I F  uhyr  y  >y  H  g  *  THEN  uhyr  y-uh  yr  y- i 

1300  IF  uhyrnrOS  THEN  uhyrx -uh yrx - 1 

13 10  IF  uhyror“3  AND  fliiKX"!  THEN  uhyrn -uhyrx  +  1 

1320  IF  uhyr  nr -3  AND  oi*kx-0  THEN  uhyrx-uhyrM^t 

1030  LOCATE  uhyrn , uhyry i  PAPER  liPEN  9 1 PRINT  uhyr* 

1340  RETURN 
1550  x 

1360  *  1 Utfl tmhk 
1570  ' 

1500  uhyr*-CHR* (IBO)-CHftf < iBl ) 

1390  uhyr -I 

1600  INK  9,INT{{RND*13)+13) ,0 
1610  SPEED  INKtlø, (laval *10) 

1620  uhyrx -I9l  uhyr*y- INT  (RNDM  6)  - 1 
1630  yllqa-JNTt (RND*3)+7) 

1640  RETURN 
1650  J 

1660  'uhyre  1 
1670  ' 

L 6G0  uhyr *-CHR* (167) +CHftf ! 160! 

1690  uhyr— I 

1700  INK  9,1 NT { { RND* 131+13) 

1710  uhyrx*19iuhyry-lNT(RND*l6)4i 
1720  yll ga-lNTl (RND*3)*7) 

I730  RETURN 
1740  * 

1730  'uhyra  2 
1760  * 

1770  uhyr*-CHR*(  1691 +QHR*  U70) 

1780  uhyr “i 

1790  INK  9, 1  NT ( (RND* 1 3) +1 31 
1S0O  uhyrx-19t uhyry-INT {RND*16)  +  1 
1010  yllga-y 
1020  RETURN 
1 830  ' 

1840  '  uhyre  3 
IB50  ' 

1 960  uhyr  *-CHR*  < 171 ) * CHR* U  72 1 
1070  uhyr-1 

1990  INK  9,  INT  <  !KND*13>-M3) 

1 S90  uhyrx“  1 1  uhyry-INT  (RNDM3)  *2 

1900  yliga-uhyry 

1910  ma— INT (RND* 13) +3 

1920  fnHXX-1 

1930  RETURN 

1940  ' 

1950  *  tfkeplonlon 
1960  ' 

1 970  CALL  ltRCA7 

19flO  LDCATE  ak ex . ak ny i  PAPER  li  PRINT  tf ku* 

1990  LDCATE  tfk»x ,«k»yi PAPER  1 (PEN  10| PRINT  CHR*(1B2I 
2000  IF  ekttyptf-1  THEN  SOUND  135,100,-1,13,1,0,31 
2010  IF  tfk»typtf-2  THEN  BDUND  1,40,-1,13,1,3 
2020  LOCATE  tfkax , wktfy t PAPER  llPftJNT"  " 

2030  LOCATE  ak«x , akayi PAPER  ti  PEN  IliPftINT  CHR* U 83) +CHR* ( 1 B4 ) 

2040  IF  tfk»typtf»2  THEN  EGUND  2,10,-1,13,1,3 
2050  LOCATE  tfkax , akmy ; PAPEft  LiPftlNT"  " 

2060  LOCATE  ak»x , tf kayi PAPER  J i  PEN  12i PRINT  CHR* ( 1851 +CKR* ( 1 96) 

2070  IF  tfkabypa-2  THEN  ØGUND  4,80,-1,13,1,3 
20B0  L  DC  ATE  ak  *k , ■ k ■ y i PAPEft  1 1  PR I NT  *  * 

2090  aktftypa-ø 
2100  RETURN 
2110  r 

2120  1  m*n  dOr 
2130  * 

2140  Uv-iiv-1 

2150  1 F  liv-0  THEN  CALL  lkECA7t  SOTO  2600 
2160  LDCATE  11,13 , 4l PAPER  #1 ,4tPRINT#l  ,tt 

2170  LDCATE  *1 , 1 3, 4 1  PAPER  *1,4[REN  fl 1 , 2i PRINT# 1 ,LEFV* ( 1 1 V* , U 1 v*2) ) 

21 Bø  LOCATE  2,l2tPAPER  liPEN  2l PRINT  CHR* ( 1 63> -CHR* < 166) t m-2j y-12 
2190  RETURN 
22øø  1 

22(0  4  »c  urtf 

2220  r 

2230  »c-ac+lø 
2240  ac*"STR*(«cl 

2250  ■Cll-icl!  FOR  f-0  TØ  (6-LEN (mb  1 *)  +  1 ) i ac*-*c*+ "  "tNEKf 
2260  LOCATE  #1,7, 2] PAPER  ttl ,4i PEN  #l,3l PRINT  #1 tHlD# (tf t* , 2 , 6 ) 


36  -  TAST 


GAMES 


2270  RETURN 
2200  ' 

2290  ■ bomha 
2300  ' 

23 1 0  LOCATE  &omb  g  x  ,  b  ombey  i  PAPER  1  l.FR  INT"  “ 

2320  tf  b årr-ben  <2  TIH^M  bomb*“Oi  Liembax-Qj  bombay-Ol  RETURN 

2330  bdfnbørt -titi  r»b  itx  ”  l 

2340  LOCATÉ  bombe*  ,bcifiih  ny  i  PAPER  li  PEN  13  [PRINT  CHRt(107t 
2330  RETURN 
2360  ' 

2370  'fu*l“0 
23B0  ' 

2390  IF  uhyr-1  THEN  LO  DATE  tihyr  k  ,  uhyry  i  PRI  NT“  N 

2400  IF  uhyr-2  THEN  1F  bomb**!  THEM  LDCATE  bomb**  ,beinb*yi  PRINT"  " 

2410  uhyr“Oibpmb»^o 
2420  POR  T-y  TO  17 

2430  LDCATE  H  ,  f  I  PEN  2 1  PAPER  1 1  PRINT  CHRt U  651 1 CHR*  <166) 

2440  LDCATE  k  *4 1 PRINT" 

2450  NEKT 

24*0  aklfx"  "juk py— f ioklH"H l GDSUB  1 950 

2470  EDBUE  2 1 20 

2400  fud 1-999 

2490  RETURN 

2500  * 

2310  ’  tf ual  ned 
2320  * 

2530  IF  1  i v< 1  THEN  RETURN 
2340  fu«l-4ii*l“l 
2350  f  lid  1  4-5TR*  <  -f  u*I  ) 

2360  IF  Ta* 1«?  OR  fual-99  THEN  LDCATE  tt  1 , 1 S , 2i PAPER  N1,4:PEN  ttl,7tPRINT* 

>  tii  ii 

2370  LOCATE  tt  i , 10 , 2: PAPER  #1,4: PEN  tt  1 , 7 1 PRlNTtt 1 , Ml D* tf uol * ,2, 3> 

2300  RETURN 
2390  ' 

2600  J  faerdig 

2610  l-Oib-0*M»320i  y-270tPOR  f“l  TO  Bl : BØUND  1 , 2O0+TJ*2 , 1 1 7 1  ØDUND  2,  tf,  1,7 
[HOVE  *,yi DRAWR  L  ,0,2i DRAWR  O,  hu  DRAWR  ,0s  DRAWR  0,-hrH“K~4t 
y-y*-2l  1  -  WBj  h-h+4:  NEttT 

2620  LOCATE  6  s  16i  PEN  9i SPEED  IMK  40, 40* PAPER  2l PRINT "SAME  OVER" 

2630  FOR  g-31  TO  O  STEP  “1UNK  9,  tf  MQD  26tFDR  T-0  TO  g  [ØDUM)  l,f»l,7lSQU 

ND  2,tf #g* 1 ,7,0,0  iNEXTlNE3<T 

2640  PAPER  O t CL S l INK  3,6,2iINK  13 >2*6 

2650  nhe-Or  FOR  tf  “O  TO  4t  IF  *C<hi<tfl  THEN  NEXTi  nl>*“ 1 1  GOTO  2690 
2660  IF  tf  "O  THEN  *“1  ELSE  *-tf 

2670  FUR  0*4  TQ  *  STEP  -t ; hi {gi -hi.  <g- \ 1 1 Ni  * <9> -hi  % <g~l J i NEXT  g 

2600  hi  <tf J-eCihlf <tf )  "" — ■ — - “ 

2690  PEN  9 1 LOCATE  5 , 2i PR  I NT “HIGH  SCORE" 

2700  FOR  g-0  TO  4t  LOCATE  i,a  +  4(PEN  Øi PRINT  g+lt LOCATE  3 , g  Ml  PR INT" %  " fi P 
EN  4: PRINT  hl  * < g > t LOCATE  14,g+4tFEN  3* PRINT  hl  ( g ) l NEX T 

2710  HOVE  12, 393 1  DRAWR  613 , 0 , 3t  DRAWR  0,“130tDRAWR  -6 1 5 , O t DR AWR  Q,l30xKGV 
E  16,391  i DRAWR  607,0* 1 5i DRAWR  O, “I2*i DRAWR  -607 , Os DRAWR  0,12 
6 

2720  IF  nh»  THEN  FOR  tf-1  TO  Bi  LOCATE  1*  li  PRINT  CHR*  <  1 1 1  l  NEJCJi  *n-1 1  c  l“Oi  t 
2-OjEVERV  iO  O  DS  UB  3000lGt)TO  2930 

2730  PEN  6iLDtftTE  2 , 1 1 1  PRINT"BRLTG  *  t  CHR*  f  2S5>  i  "<(  F IRE/EPACE1'  i  LDCATE  4,12 
i  PR  I  NT 41  POR  'AT  3KRJVE  NAVN" 

27  40  *  f-  "  A  BCD&FGM  t  J  KLM«OPORGTUVW  X  Y  Z  *  , * " 

2730  PEN  14i  LOCATE  3, 1 3r  PR  INT"A  8  C  D  E  F  G  H":  LOCATE  3 ,  1 7  s  PR:  I  NT"  t  J  K  L 
M  N  O  P" i LOCATE  3, 1 9:  PR INT"G  R  3  T  0  V  H  K" : LOCATE  3,21 i  PRI 
NT “Y  2  >  ,  tt  “EHR*  < 1 ! CHR* 191  *  "CHR* ( 1) CHRf f 1 3) 

2760  LOCATE  3,24lPRINT  CHRf  <11  CHRf  < 1 31  i  2  PEN  1 3 1 PR  I NT " -ENTER  "|iPEN  l4iPR 
INI  DHERKLlCHRKP)  1  iPEN  13i PRINT“-OELETE1h [ 

2770  FOR  q-1  TO  20 i INKEY*I NEXT 

27B0  LOCATE  4,4  +  4ilNK  I  1,20,1 1 PEN  1 1 i PR I NT  hl*<f)jhl<f) 

2790  l»-li K-4Bty«lB2in*#-MH 

2S00  MDVE  x , y i DRAWR  56,0, li DRAWR  O ,“20: ORAWR  -56, Os DRAWR  0,20 
2G10  tl-Oi t2-0i»o»l :EVEftV  10  GOSUB  3000 
2020  Ji*“l  NKEY* t  i-JQY  101 

2S30  IF  ktO"  “  AND  k*<>MaM  AND  kf<>"p"  ANO  J<>4  AND  JOB  ANP  J<>16  Tl-TEW 
2820 

2S40  MOVE  Kiyi  DRAWR  36.0.0IDRAWR  0,-2B:DRAWR  -56,0t0RAWft  0,2ø 
2030  IF  Ikf-"  *  OR  j”J6)  AND  1  *-3 1  ANJJ  n*<<  THEW  n i £- LEFT f  [ o ,  LEN  ( n * 
-1 1 :  LDCATE  4,f  +  4iPRlNT  n**!  “-“iWHlLE  6(#*"  "  OR  j<>Oikf«lNK 
EY*i j^jaViO) iNEND 

2360  IF  fk*-"  H  OR  J-161  AND  i *“32  THEN  2910 

2070  IF  k*""p"  OR  j-B  THEN  x-k+64 1 1 *"l *+l i IF  x“560  THEN  x™49t y-y-32« I F  y 
“34  THEN  n-401 y“lS2: 1 *-l 

2BS0  IF  kt~'k o"  QR  j“4  THEN  x“x“64t  1  fl”l  »^1 :  IF  k— 16  THEN  x  =  496:  y**y+32s  IF 
y-2 1 4  TH  EN  k “496 : y“R6 1 1 tt“32 

2090  IF  k*“-  "  OR  J  “  1 6  AND  l*<3l  THEN  O*  («*,  1  *,  i  >  t  LOCATE  4.T+4 

[PRINT  naJr  WHI LE  K*""  “  OR  j< >0l  (<t“INKEYf  s  j-JOY <0>  i HENDi  IF  L 
ENSnft* >  >9  THEN  2910 

2900  HOVE  K,y[  DRAWR  56,0,  li  DRAWR  0,-2S>DRAWR  -56,  Os,  DRAWR  0,2BlJ3DT0  2020 

2910  N INDON  1 , 20 , 1 0 , 25 1  ELS j WINDOW  1 , 20 , l ,2Sp FOR  g-1  TO  20 1  k* “ I NKEY J i NE XT 
2920  LOCATE  4, f +  4 1  PRINT*  "t hi *  1 »04* 

2030  PEN  4 1 LOCATE  4 ,f  +  4 1  PRINT  n«# s LDCATE  14,f*4iPEN  3l PRINT  *ciFDR  f"l  T 
O  fit LOCATE  1,1 »PRINT  CHR* 1 1  1 1  i NEKT 
2940  FOR  <“1  TO  SOOOiNEKT  - 

2930  LDCATE  1 , 23i PAPER  l3iPEN  9 %  PR I NT "TRYK  SPACE /FIRE" 

2960  IF  INKEY*0“  *  AND  JOY  10*  <>16  THEN  2960 
2970  ro-RENAlN<0)  iSDUNIJ  133,0*0070  i2° 

2900  ' 

2990  ' 

3000  IF  t2*29  THEN  an-4 

3010  IF  NDT  SQ<11  AND  2  THEN  SDUND  l ,p i It i , O » 0> , p 1 < t 1 , 1 ,01 , IS , *n i t J -tl+1 
3020  IF  NOT  SO  C  4 1  AND  2  THEN  SOUND  4  i  pi < t2,0 , 1J ,p J tt2 , 1 , 1 > , 13 , *ru  t2"t2+ i 
slF  t2“56  THEN  t 1-0: t2-0s *A- 1 
3030  RETURN 
3040  1 

3050  HDDE  lilNK  l,4,17sSPEED  INK  13,13iLDCATE  13,l2^FEN  1  i  PR1NT**ET  OJEøL 
IK“ 

3060  DIN  ti <103, J ,2) ,nn (4> ,hl <41 ,hl* < 4 1 i REBTDRE  3330 p cr -4Gi nn < O ) -03i nn < 1 
i  m  I04i  hl  *  <01  -HJ ,  P  DATA  *  i  HI  Kl  1  -  #FODLAPPER  KiH  I  f  ( 21  “"ARNOLD"  t 
Hitf Jl KLUMP “ *  H 1 1 1 4 1 ■ " SKVAT  *  t FDfl  F-0  TO  4| HI <F> - <3“F ) * lOOs NE*T 
3070  FOR  N-O  TO  1 

3000  FOR  f»0  TD  on  fn  > i  READ  1 1  tf , O , n) , durf 

3090  IF  dur7-',q't  THEM  dar-tr72 

3100  IF  dur*-*c“  THEN  dur-cr 

3110  IF  darf -MdC“  T>lEN  dur-cr+cr/7 

3120  IF  durl-**!*"  THEN  dur-Cr*2 

3130  IF  durt-11**  THEN  dur"cr«4 

3140  1 1  <T ,  1  ,nl-dur 

3150  NEXTif'TEXT 

3160  pin  Pi t36, 1 , 1 3 

3170  FOR  f-O  TO  53* READ  p i ff , O, 0> , dur* 

31  BO  IF  dur*-'^1'  THEN  dur“20 
3190  IF  dur*-" C 11  THEN  dur-40. 

3200  JF  dur*-Mdc*  THEN  dur-60 
3210' IF  durf^"m“  THENdur-BO 
3220  IF  dur*-"  tlm1*  THEN  dur“l6C 
3230  pi , 1 ,01-dur iNEXT 


3240  FOR  *“0  TB  55:  READ  p  1  t-f ,  0 , 1  >  ,  duri 

3230  IF  durf-'q"  THEN  dur “20 

3260  IF  du r*“h="  THEN  du.r-40 

3270  IF  dur*w*dew  THEN  dur-60 

3280  3F  dur*— "m"  THEN  dur “BO 

3290  IF  durf-'dm'  THEN  dur “160 

3300  pi U , 1 1  i y -dur (MEXT 

3310  RETURN 

3320 

3330  DATA  2S4  ,m,  31 9,  q ,  350 ,  q ,  2EJ4  ,  q  ,  31 9 ,  q  ,35B,  c  ( 1 7? ,  c  ,  213  ,q ,  179 ,  dt ,  239,  m,  2 
84, C.33B, c ,31 9, *,284, m,319 , q 5 33S , q , 2S4 ,q ,319 , q , 350, c, 179,q, 2 
13,q, 179,dG,239,c ,294,q,35S1q,3l91c ,3l9,c,35B,t 

3340  DATA  2B4 , m , 3 19 , q ,33B tq , 304 ( q , 319 ,q ,33H ,e  s 179 , c ,21 3 , q , 179, de , 239 , m , 2 
B4 , e , 35B , c ,319, 2B4 , « ,3 1 9, q , 330, q , 2S4 , q , 31 9 , q , 338 , e , 179 ,c , 2 
13, q, 179, de ,239, C i?B4,q ,358 , q , 3 19 , C ,3 19 ,e , 350 , * 

3330  DATA  190, de , 1 79 , q , 139, e , 23S, c , 239 , de ,2l3,q , 239 , c , 1 79 , c , 179!e,2l31cl 
233 , q , 213 , e , 239 , « , 284  tn ,31 9, q , 350 , q , 2S4 , q ,319 , q , 358 , e , 179 , c , 

213 , q , 179 , dd , 239 , C , 2B4 , q , 358 , q ,31 9,4 ,31 9 , e , 358 , ■ 

3360  DATA  7 16  ,m ,  4/B  ,C  ,  379  ,c  ,330, C ,  36B ,  q ,  536  ,q ,  426,  dc  ,  7 1 6  ,(11,470,  c  ,  368 ,  c  ,  4 
78  ,q,  536 ,  ,  47B ,  ,  479 ,  q ,  239 ,  q ,  233  ,q ,  2S4  ,q ,  31 9 ,  q ,  338 ,  C  ,  478 ,  c  ,  3 
36, q ,368 , q , 568 , c ,560 ,c , 426 , c , 306 ,*, 47S,c , 478 , q ,36B,q ,536 ,c , 536 , c , 368 , q , 7 
] 6 , q , 36B , q , 4  7  S , q , 33D , q , S60 , q , 4  7  0 , q , 359 , q 

3370  DATA  716 , m ,470, c, 379 , c , 33S , c , 360 ,c ,336 , q , 426 , dc , 716 , n , 47ø , c ,560 ,e , 4 
70 , q , 336, q , 47B,q , 379 , q , 239 ,q , 233, q , 204 , q , 3 1 9 , q , 350, c , 47B , c ,5 
36 ,  il ,  368 ,  q ,  368 ,  c  ,368  ,c ,  426 ,  C ,  306 ,  ra ,  47S  ,C ,  478 ,  q ,  360 ,  q ,  336  ,C ,  336 ,  C  ,560  ,q  ,7 
I6,q , 36B,q ,47B ,q , 35G , q , 56B ,q,47B,q , 3SH , q 

33B0  DATA  3 19 , de , 3l9 , q , 3 19 ,e ,379 ,c ,338 , de , 35S ,q p33B,e,3aø,t ,33STC,3SS,C , 
4  26 ,  c ,  350 1  c ,  37  9 ,  * ,  350 , c., 470, c  ,4  36 ,  q ,  568 ,  q  ,  360 ,  c ,  368 ,  C ,  426 1 C  ^ 

506  ,  in  ,  479  (  c  ,  470  ,  q  ,  56B  ,  q  ,  536  ,  c  ,  336  ,  c  ,  56B  ,  * 

3390  ' 

3400  DATA  3 1 9 , q , 204 , q , 253 , dc , 239 . q , 239 , c , 21 3 k c , 213 , m , 233 , c ,213 , C , 239, dc , 
253  ,  q  ,  239  ,  £  ,  2B4  ,  t ,  253  ,  din 

3410  DATA  3 1 9 , q , 204 , q , 253 , dc ,239, q , 239 , c , 213, c , 2! 3 , m, 253 , c , 21 3 , c , 239 ,c , 2 
53, q , 239 , q , 204  p q ( 3 1 9 . dm 

3420  DATA  213, c , 159 ,dc , 1 69 , c , 190 , c , 21 3, c , 21 3 , m , 253, c , 213, c , 239, dc , 233 , q , 
239 , c ,  204  ,c ,  253  pdm ,  21 3  p  c ,  I59,dc ,  1 69 ,  c ,  190  ,c  ,21 3 ,  c  ,  21 3  ,<■,  233, 
c , 21 3, c , 23? , dc , 253 , q , 239 , c , 2B4 , c , 3 19 , dfli 

3430  DATA  506,q,426pq  p 319, de,  204, q, 204  pc  ,233, c  f  253 , fit p 31 9 ( c  t253  ,c  ,234  ,dc  , 
31 9 ,q , 2B4 , c  p 33B , c , 31 9 , dm 

3440  DATA  306 pq  p 426 , q , 3 19, dc  ,2B4  , q . 264 , c , 253 , c  , 253 , ri , 3 19 , c  ,233^,  284, dc  , 

3 1 9 , q , 204 , q , 426 , q , 4  70 , q  1 306 , dm 

3450  DATA  253, c , 253 , dc , 2 13, c , 239 , c  p  253 , c , 253, m , 319 , c , 253 ,  C , 204 , C , 3 19 , q , 2 

04 , c , 338 , c , 31 9 , dm , 253 ,c , 203 ,44,213, c ,233 , c , 233  n  c ,2S3,n,31 9 ,e 

, 253 ,c,2B4,dc,319hqp  204 ,c,426,q,47Btq, 506 , dm 

3460  J  gr*Tlk 

3470  SYMBOL  AFTER  96 

3490  SYMBOL.  96,0,0,118,204,214,102,220 
3490  9YNB0L  123,48,0,120,12,124,204.110 
3500  SYMBOL  165,31,8,248,64.47,48,64,253 
3510  SYMBOL  166,0,120,240,0,7,120,129.0 

3520  SYMBOL  167,0,0,0,0,15,63.0, li  SYN  BOL  160,0,63,65,139,162,196,136.240 
3330  SYMBOL  169,0,0,0, 15, 63, 0, 0, Oi  SYMBOL  170,0,31,126,188,232,124,62,31 
3340  SYMBOL  171, 13,31 ,34 , 255 , 63 , 0,42,21  i  SYMBOL  172,2*0,240,220,233,232,0 
t 168, SO 

3350  SYMBOL  1 73 , 3 , 7 , 23 ,3 1 , 59 , 1 91 , 127 , 255 1  SYMBOL  174,120,224,240,246,254, 
221 , 254 , 255 1  SYMBOL  173,0,0,0,24, 126  T 126,252,233 
3360  SYMBOL  176,4,4,36.233,109,66,163,66 
3370  SYMBOL  177.126,193,233,126,90,90,90,90 

35&0  BYMØDL  17B,0,2,2, 10, 10,42, 170 , 253n SYMBOL  179,128,128,160,168,160,16 
9,169, 233  - 

3590  SYMBOL  ISO, 31 , 40 , 67 , 130, 1 31 , 66 , 30 , 3 l l SYMBOL  181.248,12,194,1,129,2, 

12,248 

3600  BYMBDL  102 , 20, 64 , 9 , 160, 3, 1 44 , 2 , 40t SYMBOL  183,2,16,68,17,120,34,8,11 

SYMBOL  104 ,16, 68 , 16,1, 40, 1 30 , 37 , 8 1  SYMBOL  1 03 ,3 ,28, 33, 6A, 66 ,3 

3,20,3: SYMBOL  106,192,56, 132,66,66,132,56,192 

3610  SYMBOL  107,0,0,0,52,249,52,0,0 

3620  '  banif 

3630  RESTORE  3640:  FOR  f-1  TD  100; READ  *i 1 *nd*+CHRT ( A> i NEXT  # 

3640  DATA  32,173,174,173,174,173,174.173,32,175,32,175,175, 175 , 173 ,174,3 
2,32,32,32,164, 32 ,74,46,80,32,60,65,84,65,32,32,49,57,56,53, 

32,32, 173 , 1 74 , 173 ,174,175,173, 175 , 32 , 165 , 166 , 32 , 1 65 , 166 ,32,163,166,32,17 
3 

3650  DATA  174,32, 173,174,32.175,175, 175,175,173,174,32, 167,168,32, 176,32 
,176,32,1 76 , 32 , 1 69 ,170,32,167,160, 32 ,169,170,32,177,32,177,3 
2,173, 174,173,175,173,174,175,175,32, 171,172,32,171, 172,32,239,239,239,3 
2,173,474*175 

3660  DATA  175, 1 73, 173,174,32,170,179,170,179,32, 176,32,248,248,32, 176,32 
,175,1 73 , 1 73, 174,32 ,63,77, 83 ,45, 70 , 73 , 7| , 72,84, 32 ,175,1 73, 1 7 
4,  173,174,32,177,32, 1*7,160,32, 169, 170,32,171,172,32, 177,32, 173, 174, 175, 
17B,  179 

3670  DATA  175 , 173 , 174 , 178* 1 7? , 32 , 239 , 23? , 239 , 32 , 175 , 175 

3*00  ENV  l,15,~l,20iENV  2,l3,l,l[ENT  1  *  1 3 , - 10 , 1 1 ENT  -2, 1 , 10, 1  i ENT  “3,10, 

3,1 ,IØ,“3,1:£NV  3, 13,“1 , Si ENV  4,1 ,-15,1,13,1,1,6,-1 ,2 

3690  RETURN 

3700  '  Instruktion 

3710  CLS:MODE  1 : INK  0,26: INK  I, Ot  PAPER  O: BORDER  26 1  PEN  1 
3720  LDCATE  1 6 , 2 1  PR  I  NT 11 AMS-F 1 8H  T  H 

3730  LOCATE  1, 4 1  PRINT*  Du  *r  leder  p*  *t  RUM  SKIB  *om  tk*L * ■ 

3740  LOCATE  1  , 6t PRINT^f or«  L ge  at  redde  JORDEN  fr*  YJendwn.*' 

3750  LDCATE  1 , 8t  PR  INI  "F 1  r*t«  angreb*  b  1  !  gi»  heetir  *4  iin6"  l  LDCATE  l.lOiPR 
1NT"  JAGERFLY  9 Dm  kommer  ind  fra  hhJre,J 

3760  LOCATE  1 h 1 2:  PRINT “ Andan  angreb*  b'ige  battir  nY  iml" : LDCATE  i,14i  PR 
INT"  BDnBEFl^r  tflm  09*6  kammer  ind  fra  h 1  Jr«'1 

37  70  LOCflTÉ  1 , 1 *  p  PR I NT "Trodfo  an  g  r  u  b  a  b'lge  b  a u t Ir  *{  ", LOCAT  E  1 , 1 8  l  Pft I N 
T“  UFO J  ur  fe  Lim  kommer  ind  fra  vpimtra,  “ 

3780  LOCATE  J  ,20l PRINT’*  Tllaldat  kommsr  d«r  en  FUELTANK  «om  **1  LOCATE  1.2 
2 1  PR  INT-1  akal  *kyd9C  for  at  f4  htfmln  pi.H 
3790  LDCATE  13 ,25i PRI NT" TRYK  EN  TASTE" 

3800  C  ALL  I1PSI81CALL  !*BB10 

3fl  |  O  CL®  ]  LDCATE  I  6 , 2 1  PR  I  NT  “  AMS-F  I GHT 

3820  LOCATE  1 , 4 1  PR iNT^Dvl  *tyr*r  med:" 

3830  LOCATE  13  ,*1  PøINT* JOYST IK4* 

3040  LOCATE  13,0: FRI NT"el 1  ar " 


3050  LOCATE  1 3, 1 03  PRTNT1hG 
3060  LOCATE  13, 12: PR INT "A 
3870  LOCATE  13, 1 4 1 PRTNT"P 
3880  LOCATE  1 3 , 1 61 PRINT'Ø 
3890  LOCATE  13, ISi PRINT"! 
39 1 0  LOCATE  1 , 2S 1  PR 1  NT " 
3920  C  ALL  ThBB  I  &  t  CALL  b.0018 
3930  GOTO  120 
3940  '  fu^l  tip 
3950  CALL  6BCA7 
3960  FOR  f“l  TO  lOOi . 3CUND 
3970  fual -Tuel+i 


^or  OP" 
far  NED" 
for  HOJRE" 

For'  VENSTRE" 
for  SKUD" 

TRYK  EN  7ASTÉ  FUR  START" 


t , 40, 1*15,1,3 


3980  f  Lial *-BTR*  (f  u»l  > 

3990  IF  fual-9  DR  fuol*9?  THEN  LGCATE  tt  1 , 10, 2: PAPER  41,4sPEN  ttl,7| PRlNTtt 
i," 

4000  LDCATE  # 1 , 1 8 , 2: PAPER  tt  1,4: PEN  tt  1 , 7i PR JNTtt I , MTD* tf u*l f , 2 , 31 
4010  NEKT 
4020  RETURN 
4040  END 
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1  REM  ****** ************************ 

****** 

2  REM  * 


Nu  kan  du  lave  dine  helt  egnetegn.f.eks.  lave  bogstaverne  om  til 
figurer  Det  er  endda  meget  nemt,  menustyret  og  på  dansk!  Sel¬ 
ve  menuen  står  altid  ude  til  højre,  så  vi  skal  blot  fortælle  lidt  om 
de  forskellige  modes: 

F1  bruges  tit  at  angive,  at  et  tryk  påjoystickensflre-knap  vil  sæt¬ 
te  et  punkt, 

F3  bruges  til  at  angive,  at  du  vil  slette  et  punkt  med  tryk  på joy- 
stickets  knap, 

F5  bruges  til  de  forskellige  funktioner  F5  hopper  til  disse  og  så 
bruges  F1  og  F3  til  at  gå  op  og  ned  i  menuen, 

F7  bruges  i  tegnemode.  når  man  vil  have  andre  farver,  T ryk  igen, 
når  disse  er  ændret. 

En  kort  oversigt  over  menuen: 

PRØV:  Se  et  nydefineret  tegn,  brug  joy  stick  til  at  flytte  cursor 
med  (fire  flytter  bogstaver  til  den  store  ramme), 

HENT:  Hent  et  tegn  fra  hukommelsen  over  i  tegnrammen, 
DATA:  Udskriver  data  til  tegnet  i  rammen, 

RVS:  Vender  tegnerammen  -  sat  til  slukket  og  slukket  til  sat, 
CLR:  Man  kan  slette  enten  lille  tegnegenerator  el  ler  storfirkant  - 
joystick  op  slette  tegnefirkant  og  ned  sletter  den  store  firkant 
forneden, 

SAVE:  Læg  tegnet  fra  tegnerammen  ned  i  hukommelsen. 
FYLD:  Fylder  tegnerammen,  modsat  CLR. 

SLUT :  Sletter  programmet  og  iaver  et  nyt,  der  opretter  det  nye 
tegnsæt,  der  så  kan  saves  på  normai  vis.  Det  tager  omkring  to 
minutter  at  lave  dette  program. 

Når  det  senere  loades,  vil  det  tage  20  sekunder,  før  du  har  dit 
eget  tegnsæt 


3  REM  *  DATAGENERATOR  3,0 

M.J,  * 

4  REM  * 


CLAUS 


5  REM  ****************************** 


****** 


10  SK -  1 068  :KS=1356: I K  =  1864  £  F I =Q :  R  =  1 28 
: KG = 1 506 :PE =58330 :KV= 13388 

: TT$=  H<  CRSR  NED?}" 

11  FU=11I6:GGSUB  135 

13  FOK E  52£3Q,Q:PQKE  53381,0 
s  POKE  S46 , 3  s  PR I  NT  CHR*<  147) 


13  RR=3:P1=I 


:  GQSUB  30:RR=8:Pl  =  1065 


:P£=1074:e0SUB  3 1 : P 1 = 1385 : GOSUB  30 


14  RR=1G:PI=1£76:G03UB 


RR  =  1 


:  F  1  =  1 3 1 G  s  P3  = 1 333  : GOSUB  2i:RR  =  16 


:  P  1  = 


:  GOSUB  £0 


15  RR  =£7 : P i  =  1 465 : GOSUB  30:RR=7 


:  P 1  =  i 


:  PS  = 1 533  s  GQSUB  3i:RR=3S 


:  P 1  =  1 7 88 :  GOSUB  30 

16  FOR  1=0  TO  9 : FOR  T=Q  TO  3  s  READ  D 
:POKE  1 098  +T+  I *80 ,D  +  138 : NEXT :  NEXT 

17  FOR  T =0  TO  1 37  :  POKE  I864+T,T:NEXT 
s  FOR  1=0  TO  1 : FOR  T=0  TO  7: READ  D 
: POKE  FU+T ,D+ 138 : NEXT 

IS  FU=1 196: NEXT: FOR  T=0  TO  18 : READ  D 
: POKE  1036+T, 138+0 : NEXT 


38  -  TAST 
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19  FOR  T=0  TO  7JREAO  O 

JPOKE  1S£88+ 1336+T,OiNEXT!GOTO  22 
£0  FOR  T=Q  TO  RRSPOKE  P 1 +T, 160: NEXT 
i  RETURN 

£1  FOR  T=Q  TO  RR : POKEC P 1 +T*40> , 160 
s  POKE( P2  +  T *40  > , 160: NEXT: RETURN 

22  POKE  KS,3£:P0KE  1096,170 

JPOKE  1256,32 :F I =0 : SK= 1066 s  Y=0 : X=0 
£3  SP=PEEK< SK> SPOKE  SK, 167 

s  FOR  T=Q  TO  20: NEXT : POKE  SK,SP 
s  W=PEEKC  197) : JV=PEEK< PE) 

£4  IF  W=3  THEN  POKE  1176,32 

:POKE  1 036 , 32 : GOSUB  134: GOTO  15 j 
25  IF  JV=111  AND  FI=0  THEN  POKE  SK, 
160 

2S  IF  JV=1U  ftNO  F  I  =  1  THEN  POKE  SK, 32 
£7  IF  JV=1£6  THEN  QQ=-40 : Y=Y- 1 
: GOTO  35 

23  IF  JV  =119  THEN  QQ= 1 :X=X+ 1 : GOTO  35 

29  IF  JV  =  125  THEN  QQ=40  s  Y»Y+ 1 : GOTO  35 

30  IF  JV= 123  THEN  QQ=- 1 : X=X- 1 : GOTO  35 

31  IF  W=4  THEN  POKE  1096,170 

: POKE  1 1 76 ,32 : POKE  1256,32:FI=0 

32  IF  W=5  THEN  POKE  1176,170 

: POKE  1 036 , 32  s  POKE  1256,32:FI  =  1 

33  IF  14=  £  THEN  POKE  1176,32 

: POKE  1096 ,32 :G0SU6  134: GOTO  40 

34  GOTO  £3 

i 

33  IF  Y<  1  THEN  Y= i  s  GOTO  33 

36  IF  Y>8  THEN  Y=8iG0T0  £3 

37  IF  XC  1  THEN  XMsGOTO  23 

38  IF  X> S  THEN  X -8  s  GOTO  23 
33  3K-SK+QQ : GOTO  23 

4Q  JV-PEEKC  PE  )  :  LJ-PEEKC  137) 

i POKE  KS^ 130 s  FOR  T=0  TO  40 s NEXT 

4  1  IF  jy  =  1  £8  THEN  - 80 : YY= YY- 1 

s GOTO  48 

42  IF  JV=I25  THEN  WUI=80  s  YY=YY+ 1 
s GOTO  46 

43  IF  JV=I11  THEN  ON  YY+1  GOTO  96,49, 
87,76 ,82,71 ,82, 1 18 

44  IF  Ul  =  6  THEN  POKE  KS,32 

i POKE  1096 , 1 70  s F I =D : GOSUB  134 
s  GOTO  22 

45  GOTO  4Q 

48  IF  YY< O  THEN  YY=0 s  GOTO  40 

47  IF  YY >7  THEN  YY=7SG0TG  40 

48  POKE  KS  ,32  :  KS=KS+UJLJ:  GOTO  40 

49  JU=0 : I F  JV=ill  THEN  GOSUB  134 

50  1K=I864*XU=0: YU=0 

5  1  JV=P£EK(  56320 } : OP -PEEKC  IK> 

s  PGKE  IK, 167: FOR  T=0  TO  40: NEXT 
sPOKE  I K , O  P 

52  IF  JV=111  THEN  148 

53  IF  JV  =  1 26  THEN  QW= -40 : YU =YU- 1 
: GOTO  58 

54  IF  J  V  ~  i  2  5  THEN  GW=4G : YU=YU + 1 
: GOTO  5B 

55  IF  JV=119  THEN  QN=i:XU=XU+l 


: GOTO  58 

58  IF  J  V  = 123  THEN  1 =XU=XU-1 

: GOTO  53 

57  GOTO  51 

53  IF  YU<  G  THEN  YU*0S6GT0  50 

59  IF  YU >3  THEN  YU=3:G0T0  51 

60  IF  IK  >» 1 932  THEN  IK  =  1991:G0T0  51 

61  IF  IK=< 1863  THEN  IK =1884: GOTO  51 

62  IK= IK+QU: GOTO  51 

63  PU  =0  i  FOR  F 1 =0  TO  7;PU=PU+1 

64  LI< FU>=< FEEKt KV+CH*8+F1 >>:NEXT  F1 

65  FOR  T =0  TO  7:TV=Q:FQR  TT=0  TO  7 

66  U£=LIC T+ 1 > -2tC 7-TT>-TV 

67  IF  L4E<  O  THEN  NEXT  TT 

88  IF  UJE  >  =0  THEN  POKEC  1Q66+T*4Q +TT >  , 
160 

69  IF  U1E  >  =  0  THEN  TV =TV+2 t< 7~TT> 
s NEXT  TT 

70  NEXT  T : POKE  KS , 32 * GOTO  22 

71  IF  JV=U1  THEN  GOSUB  134 

72  JU= 1 : GOSUB  50 

73  FOR  F i =0  TO  7:BIN^0:F0R  F2-0  TO  7 
73  IF  PEEKC  1066+F1*4Q+F2>*160  THEN  B 

I N=B IN+2 1 C 7-F2) 

75  NEXT  F£ : POKE  KVH CH*8)+F1 ,BIN 
* NEXT  F I sPOKE  KS,32SG0TQ  22 

76  FOR  F 1 =0  TO  ?:FDR  F2=0  TO  7 

77  Z=PEEKC 1GG6+F1*40+F2> 

73  IF  Z ” 1 60  THEN  FP^32 
79  IF  Z -32  THEN  PPMSO 

30  POKEC  I 0S6+F 1 *40+F2 > ,PP 
81  NEXT: NEXT SPOKE  KS,32sG0T0  22 

32  IF  YY  =  4  THEN  ER  =  32: GOSUB  145 

33  IF  YY=6  THEN  ER^ISO, 

84  FOR  F l “O  TO  7: FOR  F2=0  TO  7 

85  POKEC  1086+F 1 *40+F2 > ,ER 

38  NEXT  s  NEXT : GOSUB  95  s POKE  KS,32 
: GOTO  22 

87  JH=GsHJ  =  3sRT-0:0T^-  11  M  s  TB*=TT$ 

: GOSUB  95 

88  FOR  F 1 = JH  TO  HJ:BI=OsFOR  F2=0  TO  7 

39  IF  PEEKC  10GG+F1*40+F2)=!6Q  THEN  B 
I=BH£t(  7-F2) 

30  NEXT  F2:RT  =  RT+I 

91  DTS“DT$+STR^<  B  I  >  : NEXT  F1 

s  PR  I  NT  "<  HOME  ,  RVS  ON  >  11 +TBSSPC<  12  )D 
TS : POKE  1316, 160 SPOKE  1356,160 

92  JH=4:HJ=7: IF  RT>=7  THEN  TB$=TT$ 
sPOKE  KS , 32 ' GOTO  22 

33  TB^=TB^+  11 C  CRSR  NED  >  11  i  0T*=  “  u 

34  GOTG  SS 

95  FOR  I=G  TO  1 : FOR  T=0  TO  14 
SPOKE  13 1 7 +T+I *40,32= NEXT: NEXT 
s  RETURN 

96  PGKE  KS,3£:KG=15QSsSX=Q:SY=0 

97  PS-PE£K<  KO>sROKE  KO, 167 

s  FDR  T=G  TO  20  s NEXT s POKE  KO, PS 

3 5  JV“PEEK<  PE  >  !  L4=PEEK<  137  > 

99  IF  N"G  THEN  GOSUB  134 : PGKE  KS,130 
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: GOTO  40 

10 0  IF  JV=126  THEN  L4E  = -40 :  SY=SYU 
:  GOTO  106 

101  IF  JV  =  125  THEN  WE  =40 £ SY=SY+ 1 
s  GOTO  106 

102  IF  JVU19  THEN  UJE  =  1  i  SX=SX+  1 
‘ GOTO  106 

103  IF  J  V  =  i 23  THEN  WE  =  - 1  £ SX=SX- 1 
£ GOTO  106 

104  IF  JV  =  1M  THEN  GOSUB  1 34  :  GOTO  111 

105  GOTO  9? 

106  IF  SY< 1  THEN  SY-UGQTO  87 

107  IF  S Y>7  THEN  SY=7;G0T0  97 

108  IF  SX<  1  THEN  SX=UGGT0  97 

108  IF  SX  >26  THEN  SX -26: GOTO  97 

UG  KO  =  KO  +  UE  :  GOTO  37 

1  1  1  JU  =  I  s  GOSUB  50 

112  FOR  F  1=<  KV-*-CH*8)TG<  KV+CH*8+7) 

113  PQKE  FI ,255-PEEK< F1 ) :NEXT 
£ PQKE  KO, CH 

114  FOR  F 1  =C  KV  +  CH*6  >  TQC  KV  +  CH*3  +7  ) 

;  A  =A  +  i 

115  PQKE  F  1,255-PEEKC  FI  >  sNEXUGOTO  87 

UB  U  I  =  1 020 

117  11  11  £  D$s  M  11  s  FOR  T= O  TO  7 

£D*=MID$K  STR*<  PEEK<  12288 +E*S+T> >  , 

2  >  :  LS=LS4DS+  11  ,  " :  NEXT 

1  13  IF  E  =  1 23  THEN  121 

113  PR  I  NT "  C  CLR  ,  CRSR  NED3  >  ”STR*<  L  I  >  "D 
ATA  CRSR  VENSTRE  , SPACE  )  11 

:  PR  I  NT  ,,LI  =  ,rLJ  +  1  H  s  E=  11 E  + 1  " 
i  GOTO  1  1 7  C  HOME)  11 

120  FGR  T -63 1  TO  635*P0KE  T, 13  * NEXT 
£ POKE  1 93 ,5 : END 

121  PR  I  NT  "  <  CLR  ,  CRSR  NE02)B 
: POKE  809,246 

122  PR  I NT" 1000  DATA  168 ,0  , 133 ,25 1 ,169, 
43, 133,252, 169,0, 133,253, 169,208, 

1 33  11 

123  PR  I NT " 100 1  DATB254, 162,0,180,0, 
177,253, 145 ,251 ,200,208,249,230 , 
252 ,  £30  J1 

124  PRINT" 1002  DATA254 , 232 ,224 , 1 6 , 
208,240  ,96  ,f 

125  PRINT” 1003  P0KE52 ,46 £ F0KE56 ,48 
: P0KE56334 ,PEEK<  56334 ) AND254 * 

126  PR  INT 11 1 004  POKE  1  ,PEEKC  1  )  AND25  1 

: FORT =0TG36 £ REAOD : POKE 1 2  *4036 +T ,0 
i NEXT" 

127  PRINT" 1005  SYS  12*4096 
:POKE 1 , PEEKC 1 >0R4 : P0KE5B334 , 

PEEK< 56334 )0R1 H 

123  PRINT" 1006  P0KE53272, 

C  PEEKC 53272 )AND£40)0R 1£:CC=0 
i  FORT -OTO  127 11 

123  PRINT" 1007  FOR  I =0T07 5 READD 

: POKE 12288+CC*8+ I ,D s NEXT: CC=CC + I 
:  NEXT 11 

130  PR  I  NT 11  GOTO  162C  HOME)  " 


131  FOR  T -63 1  TO  640: POKE  T, 13: NEXT 

132  POKE  1 98 , 9 i  END 

134  FOR  T =0  TO  800 : NEXT J RETURN 

135  POKE  52, 48: POKE  56,48 

£ POKE  56334 ,PEEK£  56334  >AND  254 
:  POKE  1  ,PEEK<  1 >AND  251 

136  FOR  T -O  TO  36 : READ  DA 

: POKE  12*4096  +  T ,DA : NEXT  T 
: SYS  12*4096 

137  POKE  i  ,PEEK<  1 >GR  4 

:PDKE  56334 ,P£EK< 58334 )GR  1 

1 38  POKE  53272 ,t  PEEK<  53272  > AND  240)0 
R  12: RETURN 

139  DATA  163,0,133,251,169,48,133, 
252,169,0,133,253,163,208, 133,254, 
162,0,160 

140  DATA  0,177,253,145,251,200,208, 
249  ,230,252,230,254 ,232,224 , 16 , 

2GB ,240 ,96 

141  DATA  20,5,7,14,13,12,5,20,16,18, 
43,22,3,5, 14,20,4, 1,20,1, 18,22, 19, 
46,3,12 

142  OATA  18,32,18,1 ,22 ,5 ,6 ,25, 12,4, 
19,12,21 ,20,6, 15,18,7,18,21,14,4, 
2,1  ,7,7,18 

143  DATA  £1,14,4,4,1 

144  DATA  20,1,7,5,14,5,18,1,20,15,18, 
32,51 ,46,48,255, 135, 195, 195,195, 
195, 195 ,255 

145  JV=PEEK<  FE) :  IF  JV=1£6  THEN  RETURN 

146  IF  JV  =  1 25  THEN  FOR  F 1 =0  TO  6 

£  FOR  F2  =0  TO  25:P0KEC  150S+Fl*4O+F 
2) ,ER : NEXT: NEXT: GOTO  22 

147  POKE  KS  ,32  £  FOR  T=0  TO  SOifÆXT 
:POKE  KS, 190: GOTO  145 

148  IF  JU=1  THEN  CH=PEEK< IK >: RETURN 
143  IF  JU=0  THEN  CH=PEEK< IK > : GOTO  63 

150  POKE  KS ,32 : GOTO  22 

151  POKE  1125, 1 98  s  FA= 1 £QR= I 1£5:QY=0 

152  JV=PE£K<  PE ) £  POKE  QR  ,  1 83 
:14=PEEK<  197) 

153  IF  Ll=3  THEN  GOSUB  1 34: POKE  QR,32 
£ GOTO  22 

154  IF  JV  = 126  THEN  QQ  =  -30 : QY=GY~ 1 
£  FA= 1 : GOTO  159 

155  IF  J  V  = 125  THEN  QQ =30 : QY=GY+ 1 : FA=G 
: GOTO  159 

156  IF  JV=111  AND  FA=  1  THEN  CL-CL+1 

:  POKE  5328 1  ,CL  S  IF  CL=16  THEN  CL  =  -1 

157  IF  JV=1U  AND  FA=0  THEN  LC=LC+l 

:  POKE  53280, LC  UF  LC=16  THEN  LC  =  -1 

158  GOTO  152 

159  IF  QY<  O  THEN  QY=0:G0T0  152 
180  IF  QY > 1  THEN  QY=l:GOTO  152 
16  1  POKE  QR , 32  £  QR  =  QR  +  QQ : GOTO  152 
162  PRINT  1 62 -F  £  PR INT  w< BLAA , CLR , 

CRSR  NED3)  ,J F  £  PR  I  NT  ,f  F  =  ”  F  +  1  B  £L=H  182* 
£  IFF<  =LT  f  1 62<  L.8LAA,H0ME>  11 
: POKE  1 98 ,2 : END 


TAST 


GAMES 


760 

GO  TO 

25 

300 

PRINT 

AT 

10,10$  FLASH  1 ; "Nyt  spil 

810 

I F 

"  j  ■» 

OR  g#= " j "  THEN  RUN 

820 

1F  g*= 

"  n  " 

OR  THEN  PRINT  AT 

830 

GO  TO 

800 

900 

BORDER 

1  o: 

PAPER  o:  INK  7:  CLS 

910 

PRINT 

AT 

0,40; "LI GHT  CYCLE” 

920 

PRINT 

AT 

3pO!nDIN  OPGAVE  ER  KLAR:" 

930 

PRINT 

’ "MUR  MODSTANDEREN  INDE  FOR 

940 

PRINT 

"GOR  DET  AF  NED  DIG  *  f  * 

930 

PRINT 

AT 

9  ?  0 f "HOJRE  SPILLER: " 

960 

PRINT 

"0* 

. . . ,0P" 

970 

PRINT 

"P. 

_ HOJRE " 

980 

PRINT 

"G. 

- . , .VENSTRE" 

990 

PRINT 

J'  L . 

. . . .NED" 

1000 

PRINT 

AT 

16, O; "UENSTRE  SPILLER;" 

1010 

PRINT 

MW. 

....  OP " 

1020 

PRINT 

"S* 

. . . .HOJRE" 

1030 

PRINT 

"  A . 

. . . -VENSTRE" 

1040 

PRINT 

"Z. 

. . - .NED" 

1030 

PR  I  NT 

AT 

21,17! "GOD  FORNOJELSE" 

1060 

PAUSE 

1000 

1070 

RUN 

GO 


42  -  TAST 


GAMES 


i  dette  spil  skal  du,  som  fredsakti¬ 
vist  flyve  hen  over  en  slette  og 
samle  så  mange  raketter  op  som 
muligt.  Der  er  dog  andre  end  dig, 
der  er  interesserede  i  raketterne 
(ogaf  en  anden  grund).  Når  du  har 
været  5  baner  igennem,  når  du  ti! 
et  fort,  hvor  du  kan  aflevere  bom¬ 
berne  til  destruktion, 

Jesper  Vi  tved 


..i-*  'r 


y/ 


f  s 


S  S  s  / 

/  s 


/ 


H 

y 


yy  s  y  s  ' 

v/yyy 


c 


.7 


10  REM  **PEflCEHflKER 


20  SYMBC IL 
30  SYMBOL 
40  SYMBOL 
50  SYMBOL 
60  SYMBOL 
70  SYMBOL 
SO  SYMBOL 
90  SYMBOL 


EflCENflKER  JESPER  Vil  VED** 

RFTER  241 

244,31,0,65,99,127,3,  1,0 

245, 255, 64, 252, 198, 194, 254, 252,  144 

246, 16, 56, 56, 56. 56, 124,  138, 130 

250, 16, 124.56,  IS,  124, 144,40,36 

247, 16, 16,16, 16,16,  16, 16, 16 

242,0,0,65,39,  127,3, 1,0 

243, 64, 64, 252, 138, 194, 254, 252, 144 


TAST  -  43 


GAMES 


100  M="  "+CHR$  (244 )  +CHRI  ( 245 ) + "  ":B*=CHR*(246)  rCM11  “+CHR*(250)  f D*=CH»  ( 247 )  :E*="  “+CHRI<242)+CHB(243) 
110  A=l:B=14:C=l 

120  RFLYT= 1 :  POINT  =0 :  RAKET TER=0 :  IN1=20:TI  D=240 :  BON  i  =0 :  BAN2= 1 
130  FEM  **IN5TRUKRTION** 

140  CLS 

150  SPEED  KEY  25.5 

160  LOCATE  1,2:PRINT  '  "CHRt(74)+CH!»(B6)"-PEACEmKER" 

170  LOCATE  1,4:PRINT  1  I  DETT£  SPIL  ER  DU  FREDSAK* 1 VIST,  DU  SKAL  R.YVE  I  DIN  HELIKOPTER  HEN  OVER  EN 

EN  MAENS-  DE  RAKETTER  OP.  DISSE  RAKETTER  SKAL  DU  SAA  SAMLE  OP.  DIT  ARBEJDE  FORSTYRES  DOG" 

180  LOCATE  1,  SPRINT  'ff  EN  NEGET  USYMPATISK  MIND,  DER  FORT  CQWBOYHATIGAET  HVEM(BR))  PROVER  AT  SAM-  LE 
LYKKES  FOR  HAK  AT  SAMLE  3  RAKETTER  SER  DET  SORTUD  FOR  DIG  OG  DEN  RESTERENDE  VERDEN. 


SLETTE, ! 


DER  ER  STILLET 


DE  SANPE  RAKETTER.  HVIS  DET 


190  LOCATE  1, 14: PRINT  "  HVIS  DU  NfifiR  IGENNEM  5  FANER  KONKER  DU  TIL  ET  fqrt  HVOR  DU  AFLEV 

RUSTE  OP.  I  FORTET  FAAR  DU  OGSAA  DIN  SONUS, SAA  DE*  ER  KED  AT  RUPPE  NEGLENE.  RR  GAAR  HUR- 
200  LOCATE  M3: PRINT  "TIGERE  OG  HURTIGERE  FOR  HVER  BANE, 

HJHEJS  tRYK  X 

210  IF  UPPER-MINKEY-tXl1"  THEN  GOTO  210 
220  IF  IPPER$(INKEY*>0")C  THEN  GOTO  220 
230  SPEED  KEY  1, 1 
240  GOSUB  320 
250  Bl=INT(RND(l)*33)+5 
260  B2=INT  (RMMt)  *331+5 
270  IF  B2=B1  THEN  GOTO  260 
2S0  B3=IMT ( RND  < 1 >  *34  >  +5 
290  IF  B3=B1  THEN  GOTO  250 
300  IF  B3=B2  THEN  GOTO  260 

310  LOCATE  Bl, 23: PRINT  8$ : LOCATE  B2,23:PRINT  Bl: LOCATE  B3,23:PRINT  B4 
320  REM 

330  REM  PEN  6: LOCATE  A,B:  PRINT  E$:PEN  13: 

340  Ii=INKEY$ 

350  I$=UPPER$(II) 

360  IF  I$=T  THEN  A=A+1 

370  IF  I*»‘Z"  THEN  (HH 

330  IF  A=0  THEN  A=1 

330  IF  A=37  THEN  GOSUB  770 

400  PEN  6 : LOCATE  A,  B:PRINT  »:PEN  13 

410  IF  »Ml  GR  A+2=B2  OR  A+2=B3  THEN  GOSUB  640 

420  IF  RFLYT=i  THEN  C=C+1:RFLYT=0: ARTER  IN!  GOSUB  730 

430  IF  0=40  THEN  C=39 

440  °EN  1 : LOCATE  C,23:PRINT  C*:PEN  13 

450  PEN  & : LOCATE  ft, B: PRINT  E$:PEN  13 

4E0  GOSUB  800 

470  IF  C+I=Bi  THEN  RftKET TER=  RftKETTER+ 1 : B 1 =0 : GOSUB  630 


TIL  et  FQRT  HVOR  DU  AFLEVERER  RAKETTER-  IC,  SAP  DE  KAN  STAA  DER  OG 


Z: 


X: VENSTRE 


430  IF  0+1=62  THEN  RAKETTEN RAKETTER+1  s  BM:  GOSUB  670 
490  IF  C+i=E3  THEN  RAKET TER=RAKETTER+1:B3=0: GOSUB  630 
500  PEN  6: LOCATE  A,B:  PRINT  A$:P£N  13 
510  IF  RAKET TER=3  THEN  FOR  G4=l  TO  1000:NEXT  54: GOTO  1050 
520  GOSUB  550 

530  REM  PEN  6:10CATF  A,B: PRINT  A$:PEN  13 
540  GOTO  320 
550  REM  **SGUND+* 

560  FOR  52=11  TO  12  STEP  0.5 
570  SQUND  7, 100,1, 32,3,0, 10 
580  f€XT  S2 
590  RETURN 

600  FOR  Sl=100  TD  250  STE°  KUSOUND  1,  SI,  3, 15,10, 0,0 
610  CXT  SI 
620  RETURN 

630  FOR  52=200  TO  400  STEP  10=S0UND  1,S2, 5, 15, 10, 0,0:NEXT  S2iRETUFRN 
640  REM  **REB  NED** 

650  IF  I$=‘M"  THEN  GOTO  660  ELSE  RETURN 

660  GOSUB  550: FOR  REB1=15  TO  23:L0CATE  A+2,REB1:PRINT  D$:NEXT  REB1 


44  -  TAST 


VIND  DE  NYE,  DANSKE 
JOYSTICKS! 


FØR  DE  KUNNE 
PROGRAMMERE 


JULENS 

TOPSPIL 


—  det  nye  nummer  ligger  der  fra  den  20/8  til  den  21/10 . . . 


GAMES 


670  FOR  REB2=23  TO  15  STEP  -1 sLQCftTE  (H2.REB2 SPRINT  B$ 
680  LOCflTE  fH-2,REB2:PRINT  “  " 

690  l€XT  REB2 

700  GOSUfi  550 

710  OOSUB  600 

720  IF  A*2=Bl  THEN  B1=I 

730  IF  ft*2=B2  THEN  B2=l 

740  IF  ft*-2=B3  THEN  B3=l 

750  POINT=POINT+IOO 

760  RETURN 

770  GOTO  240 

7 BO  HEN 


790  fiFLYT *1 :TID=T ID- 1 : RETURN 

800  LOCflTE  1,2:PRINT  'POINT: POINT :LOCATE  15,2:PSINT  *BONUS:";TrD:LOCflTE  29,2:PHINT  'RAKETTER : ' ! ROKERER "  RETURN 

810  GOTO  810 
820  REN  **BA)€** 

830  as 

840  BflN2=BflN2+l 

850  PEN  10: FOR  BAN1=!  TO  40:L0CflTE  BflNl,  24: PRINT  CHI»<131 ) =NEXT  BflNl=PEN  13 
860  ft=lsC=l 

870  IF  IN1)5  THEN  INl=INl-0.5 

880  IF  BflN2=7  THEN  GOTO  890  ELSE  RETURN 

890  G0SU8  800 

900  LOCflTE  15, 22: PRINT  CHR$a47)+CHRt(140)+CHRf{143)+CHR$(143)+CHR4U40)+CHiWlS^ 

910  LOCflTE  16, 23:  PRINT  CHf»a47)+CH»(159)+CHR$(159)+CHR*U53) 

920  FOR  fi=l  TO  15: LOCflTE  fl, 14: PRINT  ft*: FOR  BflN3=l  TO  100: NEXT  BflN3 
930  GOS  l®  550 
940  l€XT  fl 

950  FOR  BAN4=14  TO  21: LOCflTE  ft,BflN4-l:PRINT  '  LOCflTE  P,  9*4:  PRINT  fli: FOR  BflN3=l  TO  100:NEXT  B(W3 
960  GOSUB  550 
970  t€XT  BflN4 

980  IF  TID (0  THEN  GOTO  1040 

990  BON 1=7 ID 

1000  PØIN7=P0INT+B0N1 

1010  LOCflTE  17, 5: PRINT  "BONUS!" 

1020  IN 1=17 


1030  TID=240 

1040  fl=l:BflN2=l:F0R  BAN3=1  TO  1000  :>€XT  B*3:  GOSUB  320:  RETURN 
1050  HEN  **GAME  GÆR** 

1060  CLS 


1070  FOR  GI *100  TO  80  STEP  -1 


1080  PLOT  300iGl:DRflUR  O,  iOOsQRAWR  -100, -100:DHAHR  -50,0:DRflWR  150,  ISOsDPAWH  0,160:DRfl«R  50,0;DftAWR  O , - 14 O : DFtAHR  ISO, -150 :DRAWR-50, 0 
: DRftWR  -!00,100:DRflUR  O, -lOQiDRflMR  -50,0 
1090  f£XT  GI 


1100  FOR  G2=2  TO  24 

l UO  FOR  G3=l  TO  40: LOCflTE  G3,G2: PRINT  CHS! (143): LOCflTE  G3.G2-U PRINT  ”  '  :NEXT  G3 
1 120  NEXT  G2 

11-30  LOCflTE  1,24:  PRINT  - 

1140  LOCflTE  15, 9:  PRINT  "NO  PEACE!*:  LOCflTE  15,12:PRTNT  "G^E  OVES 1  “ 

1150  FOR  G4=0  TO  1000: NEXT: HUN 


1 


46  -  TAST 


GAMES 


Her  er  noget  for  dig.  som  tror.  du 
er  god  med  en  pind...  undskyld,  et 
joystick! 

Handlingen  er  simpel:  Styr  din 
mand  gennem  den  store  skov, 
undgå  alle  træerne  og  kom  sikkert 
hjem  i  dit  hus.  Klarer  du  det.  får  du 
et  point. 


Når  du  er  startet  på  din  tur,  kan  du 
ikke  stoppe,  tempoet  er  næseknu¬ 
sende  (mod  træerne),  og  enkeite 
gange  er  det  umuligt  at  nå  ned  til 
huset  -  skoven  er  jo  fyldt  med  træ¬ 
er!!  (Som  en  skovjo  nu  engang  er). 
Får  du  mere  end  5  point,  vil  vi  ger¬ 
ne  høre  fra  dig,  for  så  må  du  helt 


klart  være  storebror  (ikke  lille¬ 
bror)  til  Superman.  Sjovt  nok,  at 
der  ellers  loves  bonus  ved  1 0,  20 
og  30  point... 

Hyg  dig,  ognuikkenogetmedat- 
fuskeved  programmets  hast  i  g  hed, 
VEL! 

Thomas  Jacobsen 


T 

T 


1  GO 


T&ye  ile©;  go  sus  10 

INGEN  ENDNU":  LET  U 


0:  L 

1  LE 
INPU 


1 


18. 

13 

SØ 

3ø 

4ø 

5ø 

51 


J*UØ:  LET  HI KØ:  LET  PQ=0: 

"UENSTRE:  LINE  lit 

2  IF  U$*""  THEN  GO  TO 

10  INPUT  "HØJRE:";  LINE  R* 

11  IF  R$s""  THEN  GO  TO  10 

15  IF  RÉ=U$  THEN  GO  TO  10 

16  PRPER  1:  BORDER  1:  INK  7:  B 
RIGHT  0:  DUER  0:  INUER5E  0:  LET 
PO  *0 

RRNDQHIZE  :  CLS  :  LET  sc*14 
LET  dusø;  FOR  i*l  TO  j 
LET  fsXNT  (RND*1S>  +3 
LET  C  =  INT  CRND*32) 

PRINT  RT  f  , C  J  INK  4;"*" 

NEXT  i 
LET  Jsj+1 

IF  PO  >HI  THEN  LET  DU  =  1:  LET 
HIsPO 

55  PRINT  81; "HIGH  SCORE:";  HI;" 
sroRp ■  * 1  - p  n 

60  LET  KussINT  <RND*32) 

RT  21 j  hus ; "ft" 

70  PRINT  RT  ø 
80  PRUSE  200 
90  FOR  R»1  TO  20 
100  LET  0*«XNKEY* 

103  IF  D $  = " "  OR  dtoUt 
R$  THEN  PRINT  RT  R-l,sc; 

104  IF  D*=R*  RND  SC<31  THEN  PRI 

NT  RT  f-ljSC;  LET  SC=SC+1 

105  IF  D*=US  RND  50*31  QR  d*  =  R 

THEN  PRINT  RT 


PRINT 


sc;  "* 


d  $  <> 


t  RND  S  C  <  sø 

i  bl  2  Ih 


r-l,sc 


106 
T  RT 

120 


IF  d*=U*  RND  SC>0  THEN  PRIN 
r  -1 ,  s  c  ;  ***'"  :  LET  $c=sc-l 
IF  RTTR  (r  ,s  C  )  =12  THEN  GO  T 


O  165 

130  PRINT  RT  r,$c; 

135  PRUSE  2 

140  NEXT  r 

145  IF  SC=hUS  OR  d*«1^"  RND  SC- 
hUS  -1  OR  d**"5"  RND  £C=hus  +  l  THE 
N  LET  jsj+1:  LET  K=5:  FOR  a  sø  TO 

69:  BEEP  .Øøl.a:  BEEP  .001,69-a 
:  NEXT  i:  LET  P0*P0+1 

146  IF  po=lø  OR  PQ=*20  OR  P0*3ø 

THEN  CLS  :  PRINT  PRPER  6;  FLRSH 
1;  INK  2j AT  lø,12;"  BONUS  i  " :  PR 
INT  #1; "  TRYK  EN  TRS 
T  *  ” :  PRUSE  0:  LET  P0*P0+INT  (R 

ND*8) +1:  GO  TO  17 

147  IF  k  sø  THEN  GO  TO  150 

148  LET  k=0:  GO  TO  17 

15ø  INPUT  , 

160  PRINT  RT  21 , RN0*31 ;  INK  4;" 


165  CLS  :  PRINT  RT  10,11;  FLRSH 
l; "GAME  OUER" 

201  IF  DU=1  THEN  INPUT  "HURRR , 
DU  HRR  HIGHSCORE! !  NRUN  CM 

RX  28):"'  LINE  N$:  LET  N*=N*+" 

"  1  LET 

N $ *N %  C  TO  28) 

2ø2  PRINT  RT  0,0; "HIGH5C0REN  ER 
PÅ:  " ; HI :  PRINT  "RF:  “;N* 

205  INPUT  "EN  GANG  TIL  CJ/N)?"; 
LINE  0* 

21ø  IF  0*=""  THEN  GO  TO  205 

211  IF  0$="J"  OR  Q*s"j"  THEN  GO 
5UB  16 

212  IF  q*="n"  OR  q*="N“  THEN  ST 
OP 

213  IF  q*<>"n"  OR  q$<>,,N"  OR  q$ 
O "j"  OR  q$  <  > "J"  THEN  GO  TQ  205 
1000  REM  ***** ****************** 
lølø  PRINT  PAPER  4;"  HOME  S 

UEET  HOME  !";  PRPER  6;" 
RF  MILR  SOFT  &  DK  SOFTWARE 

PAPER  3;  BRIGHT  1; "  MICHREL 
T  P  &  TH0MR5  JAKOBSEN . " ;  BRIGHT 
0;  PAPER  7; "I  DETTE  SPIL  GffiLDER 
DE  OM  RT  KOMME  HJEM  I  GOD  BEH 
OLI?!  DET  GøR  DU  UED  RT  UN 

DGÅ  TREERNE, HUIS  DU  RAMLER  IND  I 
ET  TRE  DØR  DU.  DETTE  ER  DIT 

HUS  ■  (O)  11 

1020 ' PRINT  "DU  KRN  KOMME  IND  RD 
DØREN  UED  DISSE  UINKLER! " 

1030  PRINT  \J/ 

1035  PRINT  '"DU  FÅR  BONUS  NAR  DU 
NAR  10  P," 

1036  PRINT  '"PS.  HU IS  DU  BREAK ' E 
R  SÅ  RYGER  HIGH  SCOREN  NED  PÅ 
NUL!  " 

1060  RETURN 

1100  PRPER  6;  BORDER  6;  INK  ø:  C 
LS  :  RESTORE  1110:  FOR  n *USR  "a" 
TO  U5R  "h " +7 :  RERD  a:  POKE  n,a: 
NEXT  n 

1110  DRTR  24,60, 126, 255, BIN  øløø 

0010, a ,a, 126 

1120  DRTR  0,24,24,60,60,-126,24,6 
0 

1130  DRTR  60,60,24, 126, 24, 24, BIN 
100 løø, BIN  1000010 
1140  DRTR  6,0,6 ,a ,96,0,96,8 
1150  DRTR  0,8,80,130,23,59,16,0 
116ø  DRTR  0,16,10,65,232,220,8,0 
1170  DRTR  ø, 127, 72, R, 127,72,79,3 
1180  DRTR  24, 0,60, BIN  1000010, BI 
N  1111110 , BIN  1000010,8,0 
1190  RETURN 

9999  CLEAR  :  SRUE  LINE 

1:  RUN 


Firebird  er  en  helt  ny  serie  fremragende 
lavpris  computerspil,  hvor  kvalitet  og  spil¬ 
leglæde  er  i  en  klasse  for  sig  selv. 


save 


RAHCE, 


ZOLYX:  »Jeg  elsker  det 
Zoiyx  er  fremragende« 


GUNSTAR:  »Simpelthen 
rå-suverænt«  Soft. 

ZONE  RANGER:  »Godt 
skuldret  -  Zone  Ranger  er 
great  stuff«  Zzap  64. 


Og  sådan  kunne  vi  blive 
ved.  Drøn  ned  til  din  Super- 
Soft  forhandler  og  se  de  75 
forskellige  FIREBIRD  titler. 
Det  er  virkelig  HOT  STUFF. 


Commodore  64 

Amstrad 


uirt 


Wr*  ’v*  jl 
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pm 

WLvMmm 
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il 
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Super  Soft  førende 


distributør  siden  1984.  Telefon  06  19  32  44  anviser  nærmeste  forhandler. 


